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Gert Seidel 


Sie halten bereits das vier- 


geht es einzig und alleine 


te Schneider Aktiv Special um Sportspiele, damit 
in der Hand, aber vielleicht sich der Computerfreak 


lesen Sie uns zum ersten 
Mal. Wir haben in der ver- 
gangenen Ausgabe eine 
klare Gliederung vorge- 
nommen, die so gut an- 
kam, daß wir sie beibe- 
halten wollen. 

Da wären zuerst einmal 
die Spiele-Kurztests. 

Hier können Sie aus mög- 
lichst vielen Reviews 

mit Fotos eine Auswahl 
treffen, wenn Sie mal 
keine Lust zum Tippen 
haben. In diesem Heft 


einmal auf bequeme 
Weise austoben kann. 
Nicht immer geht es da- 
bei so ruhig zu wie bei 
einem gemächlichen Golf- 
spiel. Manches Spiel wird 
dem Joystick die Gren- 
zen seiner Belastbarkeit 
zeigen. Wie dem auch 

sei, es findet sich be- 
stimmt für jeden etwas. 
Genauso verhält es sich 
bei den Listings, dem 
zweiten Schwerpunkt die- 
ses Specials. Hier finden 


UNSER 
2 TELEFONSERVICE & 


Leserbriefe sind uns stets willkommen, Wir be- 
antworten sie entweder direkt oder auf den Dia- 
log-Seiten. Und wenn Sie gar nicht mehr weiter 


wissen, greifen Sie doch einfach Montag nach- 

Mittags zum Telefon. Jeden Montag ab 15 Uhr 

bis 19 Uhr steht Ihnen der Telefon-Service von 

SCHNEIDER AKTIV zur Verfügung. Rufen Sie 
089/184024 


Sie Anwendungen — 
teilweise ganz spezieller 
Art, weil diese nicht käuf- 
lich zu erwerben sind. 
Sicher ist auch für Sie 
etwas Nützliches dabei. 
Highscore-Jäger werden 
selbstverständlich auch 
nicht vergessen. Vom 
Denk- und Strategiespiel 
bis zu Action dürfte je- 
der sein Genre finden. 
Auch Utilities, die Ihnen 
den Umgang mit dem 
Computer erleichtern, 
fehlen nicht. 

Zu guter Letzt kommt 
noch unser Bastelvor- 
schlag hinzu. Bereits im 
Special 3 fanden Sie ei- 
nen Computertisch, wobei 
wir die Veröffentlichung 
der Bauanleitung als 
Experiment angesehen 
haben. Mittlerweile dür- 
fen wir sagen, daß diese 
Generalprobe geglückt ist. 
Gerade Arbeiten, die 

sich über einen länge- 

ren Zeitraum hinzie- 
hen, gehören nicht in ein 
reguläres Heft, sondern 
müssen ausführlich ge- 
schildert werden. Dies- 
mal geht es um drei ver- 
schiedene Bauvorschläge, 
mit denen sich alle 
Träume von einer Dis- 
kettenstation erfüllen 
lassen. Damit sind nicht 
nur Zweitlaufwerke ge- 
meint. Durch den 
Schneider Disc-Controller, 
der auch als Einzelstück 
zu haben ist, handelt es 
sich um eigenständige Dis- 
kettenstationen, eben 
Erstlaufwerke. Als 
Höhepunkt der Bastelei 
kommt die detaillierte 
Bauanleitung einer Dis- 
kettenstation für drei 
Laufwerke. Unmöglich, 
glauben Sie? 

Es funktioniert! 

Ob Sie nun Kurzweil 
oder Anregungen zu 
Arbeiten suchen, ich 

bin sicher, Sie finden bei- 
des in Schneider aktiv — 
Special Nummer 4. 


Viel Spaß dabei. 
Gert Seidel 
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Schneider! TIPS & TRICKS 


Mit diesem Bericht vervollständigen wir unsere Reihe über Zweitlauf- 
werke am CPC. Begonnen haben wir sie in Schneider aktiv 5/87 mit einer 
3-Zoll-Einheit. Das 5 1/4-Zoll-Gegenstück stellen wir im Heft 10/87 vor. 

Hier und heute halten wir besondere Leckerbissen für alle CPC-User 

bereit, die mehr als zwei Laufwerke an ihrem Schneider betreiben und _ 
außerdem alle Vorteile der beiden Formate 3-Zoll und 5 1/4-Zoll nutzen 
möchten. Außerdem zeigen wir, wie 464-Eigner eine 5 1/4-Zoll-Floppy als 
Erstlaufwerk anschließen können und wie der Schneider Controller 
modifiziert werden muß, damit auch am CPC 464 drei Laufwerke (z.B. ein 

5 1/4-Zoll-Doppellaufwerk und eine 3-Zoll-Einheit) verwaltet werden 
können. Unsere Devise, allen (!) Schneider-aktiv-Lesern unsere Hardware- 

vorschläge zugänglich zu machen, sind wir treu geblieben. Die vorge- 

schlagenen Um- und Aufbauten sind für jeden, der mit Lötkolben und 
Schraubendreher einigermaßen umgehen kann, durchführbar. 
Darauf sind wir ein wenig stolz. 


Im Prinzip kann der Schneider Kon- 
troller insgesamt vier Laufwerke an- 
sprechen, wenn es mehr als eine ex- 
terne Drive-Select-Leitung gäbe. 
Jedes zusätzlich angeschlossene Lauf- 
werk braucht nämlich eine eigene 
Leitung, die ihm mit einem Low- 
Pegel mitteilt, daß es angesprochen 
wird. Leider gibt es aber nur ein 
DRIVE SELECT 1, so daß gerade 
ein zusätzliches Laufwerk direkt 
versorgt werden kann. Um diesem 
Mißstand abzuhelfen, muß eine 
Hardwareänderung (z.B. Einbau 
einer kleinen Zusatzlogik) am Con- 
troller vorgenommen werden. Wir 
haben uns nach einer einfachen, 
aber dennoch effektiven Lösung 
umgesehen. Sie besteht ganz ein- 
fach darin, daß die Drive-Select- 
Leitung über einen Mikroschalter 

an beide extern anzuschließenden 
Laufwerke geführt wird. Je nach 
Schalterstellung läßt sich so das eine 
oder das andere Laufwerk (sprich: 
LW 2 oder LW 3) ansprechen. 


DAS ANSCHLUSSKABEL: 
NICHT BESONDERS SCHWIERIG 


Die Modifikation des notwendigen 
Anschlußkabels ist nicht sehr 
schwierig, wenn man die Skizze 1 
zu Hilfe nimmt und die im Heft 
5/87 besprochenen Grundlagen be- 
rücksichtigt. Zunächst montiert 
man — wie angegeben — die drei 
Stecker an bzw. in das 34adrige 
Flachbandkabel. Auf die richtige 
Pinbelegung ist zu achten. Dann 
trennt man die Datenleitung Nr. 12 
(Drive Select 1) vor und hinter dem 
Anschlußstecker Floppy 2 auf und 


verlängert sie gemäß unserer Skizze 
zu dem Mikroschalter. Am besten 
nimmt man dazu eine dreiadrige 
Datenleitung (Flachbandkabelrest 
z.B.) von etwa 25 bis 40 cm Länge. 
Alle Verbindungen lötet man sorg- 
fältig. Um Kurzschlußbrücken zu 
verhindern, sind alle Lötverbindun- 
gen am Flachbandkabel, z.B mit 
einem Stück Gewebeschlauch, zu 
isolieren. Anwender mit einem CPC 
664 beachten bitte, daß sie statt 
des Centronics-Steckers einen Pla- 


tinenstecker verwenden und die Pin- x 
verbindungen — anders als auf der |! 


Skizze angegeben — nach dem Mu- 


ster Pin 34 CPC = Pin 1 Floppy; “, 


Pin 32 CPC = Pin 2 Floppy usw. 
durchführen. 


KLEINE ÄNDERUNGEN AM 
464-CONTROLLERKABEL 


464-Besitzer nehmen nun einige Än- \ 


derungen am Controllerkabel vor, 
die sich ausschließlich auf die not- 


wendigen Anschlußstecker beziehen. gg 


Ehe wir darauf näher eingehen, sei 
gesagt, daß wir bei unseren Überle- 


gungen davon ausgegangen sind, daß 


noch kein Laufwerk bzw. Control- 
ler vorhanden ist. In diesem Fall be- 
stellt man zunächst über einen Fach- 
händler den Controller. Er ist als Er- 
satzteil (!) von Schneider in Türk- 
heim zu bekommen (Artikel Nr. 
2924500 (Platine) + 2921300 (Ge- 
häuse) + 2921200 (Gehäusedeckel)). 
Nach harten Preisverhandlungen 
dürfte er nicht mehr als ca. 100,— 
DM kosten. Derart gerüstet, steht die 
Laufwerkswelt weit offen. Dazu ei- 
nige Beispiele: 


6 


Zum Größenvergleich: Die Ergebnisse der 
Bauvorschläge 1 — 3 


TIPS & TRICKS schneider 
aktiv) 


1. Einzellaufwerk 5 1/4, 3 1/2,3 als tionen am Kontrollerkabel notwen- Bei der Montage der Centronics- 
Erstlaufwerk: Notwendige Änderun- dig. Wie die Skizze 2 zeigt, wird hin- buchse ist deshalb darauf zu achten, 
gen bei 5 1/4 u. 3. Hitachi: Aufbrin- ter dem Serienstecker I ein Platinen- daß neben den Pins I und 19 folgen- 
gung eines zusätzlichen Platinen- stecker 34 Pin angebracht und zwi- de Pins nicht belegt werden: 20, 21, 
steckers 34 Pin hinter Serienstecker schen Kontroller und Serienstecker 22, 23, 24, 26. Die entsprechenden 
2. Doppellaufwerk 5 1/4 notwendige 2 montiert man eine Centronicsbuch- Pins biegt man vor der Kabelanbrin- 
Änderungen: wie ]. nur hinter beide se 36 Pin, die das Gegenstück des An- gung einfach um. Um ganz sicher zu 
Serienstecker schlußkabels aus Skizze | aufnimmt. gehen, daß man auch die richtigen 


3. Doppellaufwerk 5 1/4 u. 3 not- Somit stehen drei Anschlüsse zur Pins erwischt, sollte man den Serien- 
wendige Änderungen: wie 2 Verfügung. Bei der genannten Modi- stecker 2 öffnen (kleiner Schrauben- 

4. Doppellaufwerk 5 1/4 und Einzel- fikation fällt auf, daß nicht alle 34 zieher) und die entsprechenden Ka- 
laufwerk 3 oder: Doppellaufwerk 3 Adern des Anschlußkabels durchge- bel vergleichen. 

und Einzellaufwerk 5 1/4 schleift sind. Das ist notwendig, da- Der Floppy-Controller des 464 be- 
Zum Betrieb dreier Laufwerke am mit nach Laufwerk A und B control- nötigt zum Betrieb eine 5-Volt- 2» 
CPC 464 sind zwei Steckermodifika- lerseits unterschieden werden kann. Stromversorgung, die das Schnei- 
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schneider) 
| __ aktiv 


der Zweitlaufwerk 3 Zoll über den 
Pin 2 des Floppy-Busses zur Ver- 
fügung stellt. Wird dieses Laufwerk 
am 464 betrieben oder im Verbund 
mit weiteren Laufwerk eingesetzt, 


STROMVERSORGUNG FÜR DEN 


464-CONTROLLER BEI 
VERWENDUNG VON 
FREMDLAUFWERKEN 


ist alles in Ordnung. Hat man sich 
nun nur den Controller besorgt und 
verwendet ausschließlich Fremd- 
laufwerke (aus Preisgründen an- 
zuraten), wird eine Stromversor- 
gung des Controllers notwendig. 
Aber keine Angst, auch diese Modi- 
fikation ist kaum schwerer als die 
vorausgegangenen. Profis löten eine 
kurze Kabelbrücke vom Pin 2 zum 
Lötpunkt der laufwerkseigenen 
5-Volt-Stromversorgung. Mit dem 
richtigen Lötkolben ist diese Modi- 
fikation auch von jedem (löt)ver- 
sierten Laien durchzuführen. Man 
muß allerdings darauf achten, den 
Lötpunkt auf der Leiterbahn des 
Floppybusses (Pin 2) möglichst 
weit nach hinten zu setzen, damit 
der Stecker anschließend noch auf 
den Bus paßt. Außerdem muß kurz 
gelötet werden, damit sich die 
Leiterbahn nicht durch übergroße 
FASESKIDICHIUNE von der Platine 
öst. 

Wer kein Risiko eingehen möchte, 
dem ist von der beschriebenen Än- 
derung am Laufwerk allerdings ab- 
zuraten. Es geht auch anders. 

Man trennt ganz einfach die Daten- 
leitung NR 2 vor dem Floppystek- 
ker auf und verlängert sie, wie un- 
ter Skizze 1 beschrieben, mit ei- 
nem (Daten)Kabelstück, das an- 
schließend mit dem freien Ende in 
den Kabelschuh (5 Volt) des Strom- 
versorgungssteckers eingebracht 
wird. Damit haben wir das gleiche 
Ziel erreicht. Die beiden möglichen 
Wege zeigt die Skizze 3. 


UMSCHALTER LAUFWERK 
A/B IM CONTROLLERGEHÄUSE 
DES 464 EINBAUEN 


Zu guter Letzt bauen wir in das 
464-Controllergehäuse noch einen 
Umschalter ein, der es uns erlaubt, 
das Zweitlaufwerk auch als Lauf- 
werk A zu schalten. Bei der Ver- 
wendung einer 5 1/4 DoppeT 
floppy und einer 3-Zoll-Einheit 
kann man so in der Regel mit den 
beiden 5 1/4-Laufwerken arbeiten, 
bei Bedarf mit dem Umschalter 
aber auch das 3-Zoll-Laufwerk als 
A-Laufwerk schalten. Dies ist z.B. 
notwendig, wenn man 3-Zoll-Soft- 


TIPS & TRICKS 


Dieses Netzteil gehört zum Bauvorschlag 1. 
Rechts die Stiftleiste für die Sekundär- 
spannung, links der Netzanschluß 


ware hat, die bei Programmstart 
ein A-Laufwerk erwartet. Zum 
Umbau benötigt man einen 2-Pha- 
sen-Mikro-Umschalter und 2 Stück 
2adriges Datenkabel von ca. 10 cm 
Länge. Die Kabelbrücken fertigt 
man nach der Skizze 4, die alle not- 
wendigen Informationen enthält. 
Zu beachten ist dabei, daß zusätz- 
lich 2 Kabelbrücken am Schalter 
selbst gesetzt werden müssen. 


AUSWAHL UND MODIFIKATION 
DER LAUFWERKE 


So, nach diesen Vorarbeiten können 
wir uns der Laufwerksfrage intensi- 
ver widmen. Bei der Verwendung 
von drei Floppies am CPC sind zwei 
Konstellationen nach unserer Mei- 
nung sinnvoll. Beim 664 und 6128 
verfügt man bereits über ein 3-Zoll- 
Laufwerk als A-Laufwerk. Als 
Zweitlaufwerke sind daher ein wei- 
teres im 3-Zoll-Format und ein 5 1/4 
anzuraten. Alle Möglichkeiten, an- 
gefangen von CP/M Freesoftware 
bis zu Sicherheitskopien auf 3-Zoll- 
Diskette, können damit ausge- 
schöpft werden 464-User mit Con- 
troller sind etwas besser dran. Da 
ihnen die Formatwahl des A-Laut- 
werkes noch nicht abgenommen 
wurde, könnten sie sich für ein 

5 1/4-Doppellaufwerk entscheiden 
und als drittes eines im 3-Zoll-For- 
mat hinzunehmen, das als Software- 
lieferant eingesetzt wird. Ein gutes 
Kopierprogramm sollte dann aller- 
dings ebenso vorhanden sein wie 

ein entsprechender Diskettenhelfer, 
da alle Hilfsprogramme, z.B. zum 
Formatieren, und auch das CP/M- 
Betriebssystem (das ja bekanntlich 
nur mit dem Originallaufwerk ausge- 


liefert wird) bei ausschließlicher Ver- 


wendung von Fremdlaufwerken feh- 
len. Bei der Entscheidung für ein be- 
stimmtes Laufwerk haben wir unse- 
re Überlegungen und Erfahrungen 
aus den Heften 5/87 und 10/87 zu- 
grunde gelegt. Bitte lesen Sie dort 
nach, wenn Sie Näheres über Lauf- 
werke, die Aufzeichnungsformate 
0.a. wissen möchten. 


Fertig montierter Umschalter Laufwerk 
A/B im 464 Controller 


für ca. 98,— DM bei Völkner Elek- 
tronic in Braunschweig erhältlich ist. 


Beste Erfahrungen haben wir im Ver- Die 5 1/4-Zoll-Einheit zeichnet 


lauf unserer Testreihe mit dem 5 1/4- 


Zoll Chinon Laufwerk (Prosoft, 
Koblenz) gemacht. Schon aus preis- 
lichen Gründen (ca. 220,— DM) ist 
das die allererste Kaufempfehlung. 
Als 3-Zoll-Laufwerk haben wir die 
Einheit von Hitachi verwendet, die 


das normale IBM-Format (360 k) 
auf Disketten 2 D bzw. 48 TPI. Lei- 
der wird vom Schneider Controller 
aber nur das einseitige Aufzeich- 
nungsformat (=180 k) unterstützt. 
Man kann sich nun (wie beim 3-Zoll- 
Laufwerk) mit Wendedisketten be- 
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TIPS-& TRICKS Schneider) 


helfen, um beide Diskettenseiten zu 
nutzen, oder aber einen kleinen Um- 
schalter einbauen, der den zweiten 
Schreib-Lesekopf aktiviert. Die klei- 
ne Schaltung zeigt unsere Skizze 6. 
Den Umschalter kann man z.B. an 
der Gehäusefront installieren. Aus- 
gefuchste Bastler können ihn aber 
auch in die Laufwerksblende inte- 
grieren. Die Schaltung nutzt die 
Tatsache aus, daß der Schreiblese- 
kopf der Seite O aktiv ist, wenn der 
Pegel des Pins 32 des Floppybusses 
auf „high“ liegt. Das ist der Normal- 


„low“ zu legen, so kann man damit 
die Seite 1 der Diskette ansprechen. 
Damit lassen sich dann beide Seiten 
der Diskette ohne Umdrehen 
nutzen. 


NETZTEILE NICHT ZU 
KLEIN AUSLEGEN 


Wenden wir uns nun dem benötig- 
ten Netzteil zu. Anwender, die einen 
664 oder 6128 verwenden und 
„nur“ zwei zusätzliche Laufwerke 
zu versorgen haben, brauchen ein 
Netzteil, das mit ca. 2,0 A und ei- 
ner gleichzeitigen Spannungstole- 
ranz von , +5% ausgestattet ist. 
Das mag auf den ersten Blick hoch 
erscheinen, ist aber notwendig, da 
ja beide (Zweit)Laufwerke anlau- 
fen, wenn Floppy B angesprochen 
wird. Als Anhaltspunkt kann die 
Trafoleistung dienen, die 18 VA 
oder mehr betragen sollte. Wer 
ganz sicher gehen möchte, kann na- 
türlich auch zwei kleinere Netztei- 
le mit je ca. 8-10 VA verwenden, 
wenn es das verwendete Gehäuse zu- 
läßt. Ein 18 VA-Netzteil kostet ca. 
50,— DM und ist zu bekommen 

bei Jürgen Merz in Lienen oder 

O. Hartmann in Kreuztal. Bei einer 
Verwendung von drei Laufwerken 
am CPC 464 sind die erwähnten 
Leistungen natürlich nicht ausrei- 
chend. 

Glücklicherweise haben wir aber 
auch hier eine gute und preiswerte 
Lösung gefunden, die eng mit der 
notwendigen Gehäusefrage verbun- 
den ist. Darauf gehen wir im fol- 
genden bei unseren Bauvorschlägen 
noch näher ein. Technisch Inter- 
essierten zeigt die Skizze 5 eine 
typische Netzteilschaltung, die sich 
bei den einzelnen Anbietern meist 
nur in der Spannungsglättung un- 
terscheidet. 


BAUVORSCHLAG 1: 
DER JUMBO AUS BADEN-BADEN 


Auf unserer Suche nach geeigneten 
Gehäusen und Netzteilen sind wir 
auf eine sehr preiswerte Möglich- 
keit gestoßen, die wir zu Anfang 
vorstellen möchten. Das äußerst 
stabile Gehäuse und das passende 
sehr groß ausgelegte Netzteil stam- 
men von Bühler Elektronic in 
Baden-Baden. Die gesamte Einheit 
(Gehäuse + Netzteil) kosten einen 
(Spott)preis von ca. 52,— DM und 
stellt somit das Preiswerteste dar, 
was wir gefunden haben. Zwei Nach- 
teile seien allerdings nicht verschwie- 
gen. Das Gehäuse ist kaum als kom- 
pakt zu bezeichnen. Zum Größen- 


aktiv 


vergleich kann der Schneider-Moni- 
tor auf der entsprechenden Aufnah- 
me dienen. Zum Zweiten war das 
Netzteilmuster, das wir erhielten, 
nicht sehr zuverlässig. Es gab schon 
nach kurzer Zeit „seinen Geist auf“. 
Nach Auskunft der Fa. Bühler sind 
die Netzteile allerdings sonst stabil, 
so daß wir möglicherweise nur einen 
Ausreißer erwischt haben. Im Zwei- 
felsfall tauscht die Firma defekte 
Netzteile natürlich um. 

Nun zum Gehäuse selbst. Wir be- 
schreiben den Einbau dreier Lauf- 
werke für den 464. Natürlich kön- 
nen auch ‚‚nur‘“ zwei Floppies 
eingebaut werden. Die Montage ver- 
einfacht sich dann entsprechend. 
Das Metallgehäuse besteht aus ei- 
ner L-förmigen Wanne, dessen Rück- 
teil die Netzteilplatine aufnimmt. 
Vorn wird ein würfelförmiges ‚„In- 
lett“ aufgesetzt, das bis zu drei (!) 
Laufwerke aufnimmt. Über das 
Ganze wird ein U-förmiger grauer 
Deckel gestülpt, der das eigentliche 
Gehäuse darstellt. Die Laufwerke 
werden nach vorn mit einer zwei- 
teiligen Abdeckung versehen, die be- 
reits zwei Laufwerksausschnitte für 
5 1/4-Zoll-Einheiten enthält. Die 
Arbeitsvorgänge in Stichworten: 


SO GEHT MAN VOR 


1. Zunächst montiert man an den 

5 1/4-Zoll-Laufwerken die Ein- 
schubwinkel. Da alle Winkel gleich 
sind, müssen bei einem (z.B. dem 
linken) neue Bohrungen angebracht 
werden, damit beide Führungen oben 
liegen. Man legt dazu beide Winkel 
aufeinander und zeichnet die ent- 
sprechenden Bohrlöcher an. 

2. Die Gegenstücke (sprich: Einbau- 
schienen) werden im Gehäuse be- 
festigt. Auf die richtige Lage zu 

den Hloppyausschnitten der Front- 
abdeckung ist zu achten. Um ein 
3-Zoll-Laufwerk einzuschieben, ver- 
wendet man eine Blechplatte von 
16 x 20 cm, auf der man die 3-Zoll- 
Einheit montiert. Sie läßt sich dann 
wie das 5 1/4-Zoll-Gegenstück ein- 
schieben. Der Floppyausschnitt der 
Abdeckung muß dann natürlich 
links und rechts der 3-Zoll-Floppy 
(von innen) verkleidet werden. Das 
geht zur Not sogar mit starker 
schwarzer Pappe. Entsprechendes 
Plastikmaterial ist allerdings besser. 
3. Wird die 3-Zoll-Einheit wie in 
unserem Beispiel als drittes Lauf- 
werk eingebaut, so muß in die ent- 
sprechende Frontabdeckung ein pas- 
sender Ausschnitt eingebracht wer- 
den. Dies geschieht dergestalt, daß 

das Laufwerk auf dem Gehäusebo- 3 


Schneider 
aktiv) 


den befestigt werden kann. Als An- 
haltspunkt kann man sich an der 
entsprechenden Aufnahme orientie- 
ren. Das Ausschnittmaß beträgt 
4,2 x 9,0 cm. Bei einer Material- 
stärke von ca. 1 mm ist die anfallen- 
de Arbeit nicht ganz leicht. Am 
besten bohrt man die Ausschnitt- 
ecken mit einem 10-mm-Bohrer 
vor und erledigt den Rest mit einer 
Stichsäge. Zum Schluß glättet man 
die Unebenheiten mit einer Eisen- 
feile. 
4. Neben der Aussparung für das 
3-Zoll-Laufwerk bringt man dann 
noch die Bohrungen oder Ausspa- 
rungen für die Schalter an: Netz- 
schalter, Umschalter für die Lauf- 
werke (Skizze 1), Umschalter für 
die Laufwerksköpfe (Skizze 6). 
Alle Schalter werden von vorn be- 
festigt. 
5. Nach diesen Vorarbeiten mon- 
tiert man in die Rückwandinnensei- 
te die Netzteilplatine. Alle Strom- 
anschlüsse (primär und sekundär) 
sind über Buchsen oder Stiftleisten 
herausgeführt, für die kaum Gegen- 
stücke zu bekommen sind. Aus die- 
sem Grunde sollte man sich drin- 
gend passende Kabelschuhe besor- 
gen. Sie sind beim gleichen Anbie- 
ter zu bekommen. Die Kabelschuhe 
werden sodann auf passende Kabel- 
stücke gelötet. Nach dem Aufstek- 
ken auf die Stiftleiste sollte man un- 
bedingt die nebeneinanderliegenden 
Kabelschuhe durch Aufschieben ei- 
nes Stückchens Kabelisolierung ab- 
sichern, damit keine ungewollten 
Brücken entstehen können. Das 
Netzanschlußkabel wird durch eine 
der vorhandenen Öffnungen der 
Rückwand eingeführt und über eine 
Zugentlastung in einer 10er Boden- 
bohrung hochgeführt. Für die Netz- 
anschlußbuchse des Netzteils sind 
assende Hülsen, die auf das Netz- 


abel aufgelötet werden, angebracht. 


Das hereinkommende Stromkabel 
führt man vor dem Netzteilanschluß 
über den Netzschalter, der an der 
Gehäusevorderfront angebracht 
wird. 

6. Die Sekundärspannungen 12 V, 

5 V und Masse sind auf der Netzteil- 
platine gut gekennzeichnet. Ver- 
wechslungen sind ja nicht zu erwar- 
ten, wenn man beachtet, daß jede 


diese Stifte durch entsprechende 
Schuhe versorgt, montiert man auf 
der Gegenseite die entsprechenden 
Anschlußstecker für die Floppy-: 
laufwerke. Zwei Laufwerke können 
— wie gesagt — durch das Netzteil 
direkt versorgt werden. Das dritte 
Laufwerk versorgt man über den 
Stecker des Laufwerkes 2, d.h., 


TIPS & TRICKS 


So wird das Floppygehäuse aufgebaut: 
Hinten das Netzteil, vorn im Einschubteil 
werden die Laufwerke montiert 


jeder Kabelschuh des Floppystek- 
kers wird mit 2 Leitungen belegt. 
7. Sind alle bisher beschriebenen 
Arbeiten erledigt, wird das Ganze 
montiert, verschraubt und mit den 
vorbereiteten Datenleitungen ver- 
sorgt. Entsprechende Aussparun- 
gen für die Kabelführungen sind in 
der Gehäuserückwand vorhagden. 
Die Einheit ist jetzt (falls alle Ar- 
beiten sorgfältig erledigt wurden) 
anschlußbereit. 


RESUMEE 


Gehäuse und Netzteil sind einmalig 


preiswert. Bei Inkaufnahme der ge- 
nannten Nachteile erhält man ein 
sehr stabiles Gehäuse, das bis zu drei 
Laufwerken problemlos aufnimmt 
und außerdem noch Platz für evtl. 
Erweiterungen hat. 464-Usern, die 
drei Laufwerke verwenden möchten, 
kann nichts Besseres empfohlen 
werden. Die Preis-Leistungsrelation 
ist ausgezeichnet. 


Materialliste: 1 Doppelfloppygehäu- 
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se, 1 Netzteilplatine, 2 oder drei 


Laufwerke z.B. 2x5 1/4und 1x 

3 Zoll, 10 Kabelschuhe für Netzteil- 
stiftleiste, 3 Hülsen für Netzteilnetz- 
anschluß, 1,5 m Netzkabel 3 x 0,75, 


TIPS & TRICKS schneider) 


Blick ins „Vortex”-Innere. 
Unten das montierte 3-Zoll-Laufwerk. 
Im Deckel hängend die 5 1/4-Zoll-Einheit 


im Netzkabel 3 x 0,75 zum Auf- 
trennen für Laufwerk-Netzteil-An- 
schlüsse, 1 Netzschalter beleuchtet, 
Datenkabel (Stecker, Mikroschalter), 
wie beschrieben. 

Anbieter: Bühler Elektronic, Baden- 
sa (Gehäuse, Netzteil, Kleinteile, 
Merz Elektronic, Lienen (Datenka- 
bel, alle Stecker, Floppies 5 1/4) 
Völkner Elektronic,. Braunschweig 
(3-Zoll-Floppy) 


BAUVORSCHLAG 2: 
ELEGANTE LÖSUNG VON BOPLA 


Wir verwenden hier ein sehr ansehn- 
liches Plastikgehäuse der Fa. Bündo- 
plast in Bünde. Das Gehäuse ist 
exzellent verarbeitet, sehr stabil 
und mehr als ausreichend mit Lüf- 
tungsschlitzen versehen. Zwei iden- 
tische Halbschalen bilden das Grund- 
gerüst dieser Gehäuseform. Als vor- 
dere Abdeckung dient eine großzü - 
gig bemessene Kappe, die mit der 
unteren Halbschale verschraubt 
wird. In diese Kappe werden die 
Floppyausschnitte eingebracht. Das 
Gehäuse ist für zwei Laufwerke 

5 1/4 Zoll oder kleiner ausgelegt, 
die nebeneinander liegen. Die Bau- 
höhe beträgt daher nur ca. 55 mm, 
so daß die Einheit z.B. leicht unter 
einen bereits vorhandenen Drucker- 
tisch paßt. Als Monitoruntersatz 
plaziert, stören leider die vorhande- 
nen Anschlußkabel der CPC-System- 
einheit. Das ist schade! 

Bei der Bearbeitung spielt das Pla- 
stikmaterial des Bopla-Gehäuses 
seine Vorteile aus. Sowohl die Flop- 
pyausschnitte als auch die Ausspa- 
rungen, z.B. für den Netzschalter, 
sind leicht zu bewerkstelligen. Man 
zeichnet die Maße auf der Front- 
kappe (Innenmaße (!) der Lauf- 
werksblende nehmen) auf, bohrt 
die Ecken mit einem 10-mm-Holz- 
bohrer aus und schneidet den Rest 
mit der Stichsäge aus. Für die Aus- 
sparung des Netzschalters (10 x 

30 mm) setzt man drei übereinan- 
derliegende Bohrungen von 8 mm 
und erledigt den Rest mit einer 
Feile. 

Nun, sind alle Ausschnitte ange- 
bracht, wird die Frontkappe mit der 
unteren Halbschale verschraubt. 
Dann setzt man die Laufwerke ein 
und bestimmt die Befestigungsboh- 
rungen (Laufwerksumrisse anzeich- 
nen und anschließend eine vorher 
angefertigte Bohrschablone verwen- 
den). Sind die Löcher gebohrt, setzt 
man die Laufwerke auf 5 mm Ab- 
standröllchen und schraubt sie fest 
Für die 5 1/4-Zoll-Einheit haben 
wir vier Befestigungsschrauben 
(15x M3), für das 3-Zoll-Gegen- 
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stück wegen der kürzeren Baulänge 
nur zwei verwendet. Anschließend 
montiert man das Netzteil über die 
im hinteren Teil des Gehäuses ange- 
brachten Luftschlitze (Abstandsröll- 
chen 5 mm). Wichtig ist dabei die 
Überlegung, daß der Kühlkörper der 
Netzteilplatine in der Kühlungszone 
liegt, ansonsten muß man die Mon- 
tageerfordernissen berücksichtigen. 
Zur Demonstration haben wir für 
unseren Aufbau einmal zwei klei- 
nere Netzteile, die jeweils nur ein 
Laufwerk mit Strom versorgen, ver- 
wendet. Im Gehäuse ist dafür genü- 
gend Platz vorhanden. Das Netz- 
kabel führt man über eine Zugent- 
lastung durch die hintere Verschluß- 
platte des Gehäuses (die Platte wird 
mit beiden Halbschalen von außen 
verschraubt). Jetzt stellt man alle 
Stromverbindungen her (wie be- 
reits beschrieben), montiert die 
Schalter an der Gehäusevorderseite 
und verbindet die Laufwerke über 
das vorbereitete Datenkabel mit 
dem Computer. Zum guten Schluß 
wird noch die obere Halbschale auf- 
gesetzt und nach dem Probelauf 
dann verschraubt. 


RESUMEE 


Eine elegante Lösung eines Doppel- 
laufwerks für den CPC, die allen, 
die an guter Form Freude finden, 
entgegenkommt. Dieses Gehäuse ist 
selbst auf engstem Raum (z.B. un- 
ter Druckerständer) noch unterzu- 
bringen, so daß es kaum Platz benö- 
tigt. Kräftig schlucken muß man 
allerdings beim Preis. Es kostet fast 


Materialbedarf: Floppygehäuse FS 
812 (Nr. 16000101), Netzteil 18V A, 
Netzschalter, 8 Abstandsröllchen 

5 mm, Unterlegscheiben, Schrauben 
15 x M3, Kabel und Stecker wie 
Bauvorschlag 1, Laufwerke 5 1/4- 
und 3 Zoll. 

Anbieter: Bündoplast GmbH, 

4980 Bünde (Gehäuse), Jürgen 
Merz, Lienen (Netzteil, Kabel, 
Stecker, 5 1/4 Zoll), Völkner Elek- 
tronic, Braunschweig (3 Zoll). 


BAUVORSCHLAG 3: 
SOLIDE QUALITÄT VON 
VORTEX 


Da alle guten Dinge drei sind, haben 
wir uns die’Arbeit bei unserem letz- 
ten Bauvorschlag einmal ganz ein- 
fach gemacht. Die Fa. Vortex liefer- 
te eines ihrer F1-D-Doppelfloppy- 
gehäuse mit unterer Blende. Sinnvol- 
lerweise bezieht man dann auch 
gleich das passende (Vortex) Netz- 
teil, das nicht nur optimal dem Ge- 
häuse angepaßt ist, sondern auch 


Schneider TIPS & TRICKS 


= Drive-Select 1 


Floppy 2 vorn 
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Flachbandkabel 34 x 0,14 


“© Centronics 36 pin 
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Hikro(Ua)schalter 
links = Floppy 1 
rechts= Floppy 2 


SKIZZE 1: 

Modifikation des Datenübertragungskabels 
für 6128/464. Zum Anschluß an den CPC 
664 muß der Centronic-Stecker durch 
einen Platinenstecker ersetzt werden. 
Achtung: Am Centronic-Stecker müssen 
die Pins 1 und 19 frei bleiben 
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Platinenstecker 34 pin 


SKIZZE 2: 

Änderungen am Controllerkabel des CPC 
464. Zusätzlich werden folgende Stecker/ 
Buchsen aufgebracht: hinter Serienstecker 
1: Platinenstecker 34 pin zwischen $erien- 
stecker 2 und Controller: Centronics- 
buchse 36 pin zur Aufnahme des Kabels 
aus Skizze 1 


Datenleitung 2 


Centronicsbuchse 36 pin 
fuer Floppy 2 und 3 


Spannungs = 
Kinslanthaulter Ic 


VETZ 


TRAFO Lade konden- 
Saltor 


Stronversorgun: 
- Kabelbruecke 


Floppyplatine oben 


KIZZE 5: * 
Typisches Schaltbild einer Floppy-Stromversorgung mit den beiden Versorgungsspan- 
nungen 5 V und 12 V. Diese Schaltung verwendet einen Gleichrichter für beide 

Spannungszweige 


SKIZZE 3: 

Stromversorgung für 464 Controller. 
2 mögliche Lösungen sind gestrichelt 
eingezeichnet 
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Uaschalter 2 Phasen 
Lötseite 


os» 


Datenkabel 
ITTLIICTETT 


Kontrollerplatine Lötseite 


ensece#eo 


SKIZZE 4: 
Anschlußbelegung bei Einbau eines Umschalters Laufwerk A/B am Controller 464. 
Achtung: Interne Drahtbrücke am Schalter von 5 nach 2 und 6 nach 1 


SKIZZE 7: 
Stromversorgungsanschluß für 3 Laufwerke 


ZUM NETZTEIL 


= 


KONTROLLER 


Anschlusstecker 
Floppy I 


den Strombedarf zweier Laufwerke 
A deckt. Kostenpunkt die- 
ser Lieferung etwas unter 200 DM. 
Wenn Sie jetzt tief Luft geholt ha- 
ben, ist das durchaus verständlich, 
aber vielleicht doch nicht ganz ge- 
rechtfertigt. Das Vortexgehäuse ist 
nämlich nicht nur aus stabilem Me- 
tall gefertigt und von untadeliger 

Hikroschalter Paßform, soweit es das Gehäuse 
Floppyplatine oben selbst betrifft; auch die Gehäuselak- 
kierung und der professionelle Netz- 
teilaufbau sind absolut untadelig. 
Außerdem muß man berücksichti- 
SKIZZE 6: # gen, daß das Netzteil anschlußfertig 
Einbau eines Mikroschalters zum Umschalten auf einen der beiden Schreibleseköpfe.] !S! und der Laufwerkseinbau nur 
Beide Diskettenseiten werden damit genutzt, ohne die Diskette umzudrehen. wenige Handgriffe erfordert, da 
Durch die Schaltung wird der Pin 32 des Floppybusses auf „low“ gelegt = side 1 der| alle Bohrungen schon vorhanden 
Diskette. Bei Schalterstellung „aus’’ ist side O aktiv sind. 


Leider waren wir letztendlich dann3® 


Stromversorgung 32, Floppybus 


SPECI 


newan: 


nos 
Tricks 


TIPS & TRICKS 


doch enttäuscht, als wir feststellen 
mußten, daß die seitlich im Gehäu- 
sedeckel angebrachten Bohrungen 
für das obenliegende Laufwerk sehr 
knapp bemessen waren. So konn- 
ten wir ..B. ohne Schwierigkeiten 
ein BASF 6128 Laufwerk (das ex- 
trem flach gebaut ist) einbauen, 
mußten aber beim NEC 1053 und 
dem Chinon Laufwerk feststellen, 
daß die Bohrungen nicht paßten, 
bzw. neu eingebracht werden muß- 
ten. Das schadet natürlich der Op- 
tik. Ähnliches muß über die Bau- 
höhe des Gehäuses gesagt werden. 
Dadurch daß die Höhe der Front- 
blende beim 3-Zoll-Hitachi etwas 
größer als die einer 5 1/4-Zoll-Ein- 
heit ist, muß die 3-Zoll-Floppy et- 
was vorgezogen werden, damit bei- 
de Laufwerke hineinpassen. Das ist 
zwar nicht weiter tragisch und läßt 
sich mit der mitgelieferten (Rest) 
Blende auch ganz gut kaschieren, 
ärgerlich ist es aber doch. Der Fa. 
Vortex ist daraus natürlich kein Vor- 
wurf zu machen, da das Gehäuse 
nicht für unser Bauvorhaben ge- 
dacht ist. Als Bastler muß man aber 
genau prüfen, inwieweit die genann- 
ten Nachteile zum Tragen kommen. 
Doch nun zum Aufbau der hier vor- 
gestellten Einheit. 

Das Gehäuse besteht aus einem 
U-förmigen Deckel und einem L-för- 
migen Bodenteil. Zuerst montiert 
man die 5 1/4-Zoll-Einheit durch 
seitliches Verschrauben mit dem 
Deckel (Laufwerk hängt im Dek- 
kel (!)). Wenn man Glück hat, pas- 
sen die Bohrungen, wenn nicht, muß 
man neue einbringen. Dann sägt man 
aus der unteren Blende den Aus- 
schnitt für das 3-Zoll-Laufwerk aus 
(Blende vorher abschrauben und die 
Plastikabdeckung entfernen). An- 
schließend bringt man die Befesti- 
gungsbohrungen für das 3-Zoll- 
Hitachi auf der Bodenplatte auf 
(Schablone verwenden). Nun wird 
das (hoffentlich anschlußfertige) 
Vortexnetzteil montiert (bei Bestel- 
lung unbedingt nachfragen), danach 
das Netzkabel und der Netzschalter. 
Den Laufwerksumschalter (Skizze 1) 
montiert man neben die 3-Zoll- 
Floppy vorn in die wieder anmon- 
tierte Restblende. Jetzt steckt man 
das Datenkabel auf und verschraubt 
die Gehäuseteile. Das war’s. 


RESUMEE 


Ein teurer Spaß, der hohen Quali- 
tätsanforderungen gerecht wird. Für 
unser Bauvorhaben war die Paß- 
form allerdings weniger zufrieden- 
stellend. Dafür ist das Gehäuse aber 
sehr kompakt und erstklassig ver- 
arbeitet. 
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Materialbedarf: Gehäuse F1-D mit 
Blende, Netzteil, Stromkabel mit 
Stecker 1,5 m, Laufwerke 5 1/4- 
und 3 Zoll, Datenkabel und Stecker 
wie unter ]. beschrieben 

Anbieter: Vortex GmbH, 7101 Flein 
(Gehäuse, Netzteil) sonst wie 1. 


ANHANG 


Busbelegung des 5 1/4-Zoll- 
Laufwerks (z.B. Chinon FZ- 
502) 


PinNR Signal 


2 open 
4 in use 
6 drive select 3 
8 index 
10 drive select O 
12 drive select 1 
14 drive select 2 
16 motor on 
18 direction select 
20 step 
22 write data 
24 write gate 
26 track 00 
28 write protect 
30 read data 
32 side select 
34 ready 


Alle ungeraden Pins sind mit 
Masse belegt 


Anschluß 2. Diskettenlaufwerk 
CPC 664/464 (Anschlüsse 
6128 beginnen in gleicher 


Reihenfolge mit Pin 34) 
PinNR Signal 
1 ready 
3 side 1 select 
5 read data 
7 write protect 
9 track 00 
11 write gate 
13 write data 
15 step 
17 direction select 
19 motor on 
21 n/c 
23 drive select 1 
25 n/c 
27 index 
29 n/c 
31 n/c 
33 n/c 


Alle geraden Pins (664/464) 
sind mit Masse belegt. 
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LISTING 


PROGRAMMLISTER 


Der hier abgedruckte Programmlister unseres Autors 
Michael Folz ist von der Vielseitigkeit und Anwender- 
freundlichkeit ein Programm, das sich sehen lassen 
kann. Nahezu alle Funktionen können mit dem Joy- 
stick oder den Cursortasten angesteuert werden. 
Eingaben erfolgen schnell und übersichtlich, fast im- 
mer hat man die wichtigsten Daten auf dem Bild- 
schirm sichtbar. 

Die gespeicherten Daten können auch von anderen 
Programmen gelesen und weiterverarbeitet werden, 
insbesondere von einigen der weitverbreiteten Text- 
verarbeitungsprogrammen (Tasword usw.), wenn Sie 
die Daten unter dem Menüpunkt ‚Ausgabe‘ ablegen. 
Aber Achtung: Sollen die Daten wieder von dem Pro- 
gramm ‚„Programmlister“ eingelesen werden können, 
so verwenden Sie zur Ablage bitte den Menüpunkt 
„Diskette“, 

Das Programm dient zum Verwalten der eigenen 
Software. Und wer davon schon einiges sein Eigen 
nennt, der weiß, wie schnell man da den Überblick 
verliert. Und dann geht die Sucherei los: Diskette 
rein, cat, Diskette raus, nächste Diskette rein, ... 
Und endlich findet man das gesuchte Programm, 

wie so oft, erst auf der vorletzten Diskette. Ein 
Programm müßte her, das einem die Verwaltung 

der Software vereinfacht. Hier ist es! 

Das Programm ist so offen geschrieben, daß auch un- 
geübte Basic-Programmierer leicht persönliche Ände- 
rungen vornehmen können und auch dürfen. So er- 
folgt die Menüsteuerung über Stringfelder, die zuerst 
aus Data-Zeilen gelesen werden. Die Menüsteuerung 
wird dann über ein simples Gosub angesprungen, 
zurück kommt dann die Nummer des angeklickten 
Menüpunktes. 

Erweiterungen sind also leicht möglich, aber nicht 
unbedingt erforderlich, da das Programm fast alle 
notwendigen Operationen schon integriert hat, ja, so- 
gar die Farben können selbst gewählt werden! 

Im Hauptmenü sind alle Funktionen grob gegliedert. 
Meistens ist anschließend dann eine weitere Unter- 
menü-Auswahl notwendig. Haben Sie eine Auswahl 
getroffen, so ist sie nicht unwiderruflich, selbst von 
Basic aus kann das Programm wieder gestartet wer- 


den, ohne daß es einen Datenverlust gibt. 
Die Hauptmenüpunkte im Einzelnen: 


1. Ausgabe 

Ausgabe der im Speicher befindlichen Programmbe- 
schreibungen als Liste. Im Untermenü kann gewählt 
werden, ob die Ausgabe auf den Bildschirm, Drucker 
oder die Diskette erfolgen soll. Wenn Sie unter 
diesem Punkt die Daten ablegen, können Sie sie mit 
einem normalen Textverarbeitungsprogramm wieder 
gelesen werden, nicht allerdings vom Programm 
„Programmlister“! Rückkehr ins Hauptmenü durch 
Anklicken von „Abbruch“. 


2. Eingabe 

Eingabe neuer Programmbeschreibungen. Die neuen 
Programme werden hinten an die Liste angefügt. 
Bus ken ins Hauptmenü durch Eingabe einer Leer- 
zeile. 


(Fortsetzung Seite 20) 3» 
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LISTING 


1 RRBBRRRRRRSRREISEIEIEIESESEIESESESESESESESESESEIENE 
AR PROGRAMMLISTER * 
3 '% VON * 
a ’* MICHAEL FOLZ * 
2 u FUER * 
6 ’* SCHNEIDER AKTIV * 
77% CPC 464/664/6128 JE* 
EZ 2 22 2 22.22.2222 2050202 202 2020202 2202 202202020202 
9 REM 


18 CALL &£EBBBB:CALL EBBAE:CALL &BBBA 
:CALL EBBFF:CALL EBC65:CALL EBCA7:O 

N ERROR GOTO 47:5YMBOL AFTER 256:60 
SUB A8B:MEMORY EAAE4A:OPENOUT"!d":MEM 
ORY HIMEM-1:CLOSEOUT 

11 FOR I=8 TO &28E STEP &18:Z=8:FOR 
J=I TO I+&F:READ A$:POKE J+&AAES,V 
ALL"E"+AS) :Z=Z+VAL("E"+A$) :NEXT J:R 

EAD A$:IF VALL"E”"+A$S)<>Z THEN GOTO 
13 

12 NEXT I:CALL SA4ES:RUN”!pr.881” 
13 PRINT:PRINT"Checksum error in Ze 
ile”";&B+{( I/&18);” !!!!1”:STOP 

14 DATA 21,EE,A4,81,F2,A4,C3,D1,BC, 

092,009,80,89,08C,A5,C3,87BE 

15 DATA 52,AS,C3,7F,A5S,C3,8A,A5,C3, 

8E,AS,C3,94,A5,C3,8®8, ABS 

16 DATA A6,C3,84,A6,C3,E8,A6,43,41, 

AC,CC,46,4C,41,53,C8,8866 

17 DATA 42,52,45,41,4B,2E,4AF,CE,42, 

52,45,41,4B,2E,4F,46,84D8 

18 DATA C6,49,43,4F,CE,53,43,52,4F, 

A4AC,4C,2E,55,0D8,53,43,8627 

19 DATA 52,4F ,4C,4C,2E,44,4F,57,CE, 

47,45,54,43,48,41,D2,859D 

28 DATA 89, 1E,82,CD,88,B9,C3,94,CA, 
1E,85,18,F6,FE,®8,3@,862E 

21 DATA F9,87,28,ED,3D,17,5F,16,88, 

DD,ES,E1,ED,5SA,86,67,87?7C 

22 DATA ?7E,SF,23,7E,57,2B,2B,2B,DS, 
18,F5,FD,E1,DD,E1,C1,888D 

23 DATA D1,E1,E3,7D0,6C,67,ES,F1,E1, 
C9,87,C2,46,A5,CD,89,BA9F 

24 DATA BB,8B7,C8,18,F9,3E,C3,18,82, 
3E,C0C9,32,EE,BD,C9,B7,88CA 

25 DATA 28,8B,FE,81,C2,46,A5S,DD,?7E, 
a92,32,56,A6,ED,73,57,871F 

26 DATA A6,3E,17,CD,5A,BB,3E,81,CD, 
SA,BB,CD,C6,BB,D5,E5,8986 

27 DATA FD,E1,DD,E1,CD,78,A6,11,F1, 
AS,3E,85,32,59,A6,47,88BE1 

28 DATA C5,1A,6F,13,1A,67,13,E5,86, 
03,1A,13,CD,1E,BB,28,®84DE 

29 DATA 8B,E1,E5,DS,CD,F@,AS,AF,32, 

59,A6,D1,18,EC,E1,C1,8A57 

38 DATA 18,DE,3A,59,A6,B7,CC,6D,A6, 
18,CC,E9,8A,A6,4B,33,87B8 

31 DATA 81,0F,A6,4A,32,88,25,A6,4B, 
30,098,2A,A6,49,31,82,83C9 

32 DATA 49,A6,4C,34,89,11,88,88,18, 

@3,11,F8,FF,DD, 19,DD,B857E 


33 DATA ES,E1,?C,FE,18,38,EE,11,8®, 
a2,8B7,ED,52,38,EB,C9,88DB 

34 DATA 11,88,80,18,83,11,F8,FF,FD, 
19,FD,ES,E1,7C,FE, 18,879F 

35 DATA 38,EE,11,98,81,B7,ED,52,3®, 
EB,C9,ED,7B,57,A6,3A,8839 

36 DATA 56,A6,CD,FC,BB,3E,17,CD,SA, 
BB,AF,CD,SA,BB,C3,83,898E 

37 DATA AS,F®,00,88,88,CD,C6,BB,DS, 
E5,3A,56,A6,CD, 19,BD, 8876 

38 DATA CD,FC,BB,E1,D1,C3,C@,BB,CD, 
S5A,A6,FD,ES,DD,ES,E1,8CC6 

39 DATA 11,F8,FF,19,D1,EB,CD,C®,BB, 
18,DA,B6,FF,18,82,86,@83C 

AB DATA 88,FE,02,38,8E,87,3E,00,28, 
83,DD,7E,88,CD,2C,BC,856E 

Ai DATA C3,4D,BC,FE,86,02,46,AS,FE, 
84,3E,688,DA,46,A5S,28,@7BA 

42 DATA 87,DD,7E,88,DD,23,DD,23,F5, 
C5,CD,17,BC,84,8C,DD,87A9 

a3 DATA 7E,88,3D0,89,D2,4E,AS,5F,DD, 
7E,84,3D0,B8,D2,4E,AS, 8781 

AA DATA 57,DD,7E,82,B7,CA,4E,AS,3D, 
6F,DD,7E,86,B7,CA,A4E,8884 

45 DATA AS,3D,67,C1,F1,CD,2C,BC,C3, 
S8,BC,FE,81,C2,46,A5,892B 

46 DATA DD,5E,88,0D,56,81,CD,68,BB, 
12,13,AF,12,C9,18,88,861E 

47 WINDOW 5,36,8,15:PEN 3:PAPER 1:C 
LS:PRINT TAB(9) "*** FEHLER ###":PRI 
NT:PRINT"” Computer zuruecksetzen un 
d den Ladevorgang wiederholen!” 
:LOCATE 3,7:PRINT"” (C) ESCape! Soft 
ware 1987”; :WHILE-1:WEND 

48 MODE 1:TAG:FOR i=528 TO 288 STEP 
-5:PLOT-2,-2,2:MOVE 688-1,1/1.5:PRI 
NT"A!";:PLOT-2,-2,3:MOVE i,i/1.5:PR 
INT"P-"; :NEXT:TAGOFF:LOCATE 12,17:P 
EN 3:PRINT"PUBLIC RELATIONS":FOR i>= 
6 TO 28:INK 3,1:INK 2,26-1:FOR 3j=1 
TO S8:NEXT:NEXT 


49 PEN 1:3$=" PR! Der kom 
fortable Programmlister... 
geschrieben von Michael Folz 
fuer alle Leser von Schneider 
aktiv ” 


SQ b$=a$:c$="":WHILE c$="":1=1:WHIL 
E LEN(b$)-i>26 AND c$="":LOCATE 8,2 
5:CALL &BD19:PRINT MID$Cb$,i1,26);:i 
=i+1:c$=INKEY$:WEND:b$=RIGHT$(b$, 26 
)+a$:WEND:LOCATE 8,25:PRINT"Lade P. 
AR! - bitte warten..”; :AETURN 


SCHNEIDER AKTIV 
JEDEN 


MONAT NEU! 


LISTING 


y RRRBRRHRHIHRIHRIRIEIHISIRIESESER ST SESESEÄ TE NENEN 
2 '#* PROGRAMMLISTER-HAUPTPROGRAMN * 
3 '% VON * 
a '’%* MICHAEL FOLZ #* 
5 '* FUER * 
6 ’* SCHNEIDER AKTIV %* 
ER CPC 464/664/6128 JE* 
8 RRRRRRRRRRARRRRRSRTRIHIHIRIHIHIHISERESESE SEHEN 
9 REM 


18 CLEAR:DEFINT a-z:DEFSTR a:DIM m( 

5) ,am(5,18),ap( 488) 

28 READ icon:FOR i=® TO 2:READ f(i) 
:NEXT:INK ®,f(8) :INK 1,f( 1) :BORDER 

f( 2) :ah=SPACE$( 48) 

38 MODE 2:G0OSUB 868:PEN 1:PAPER 8:C 

LS 

48 WINDOW#1,16,88,1,25:WINDOW#2, 16, 

75,1, 18:WINDOW#3, 16,88, 12,25:WINDOW 

#4,13,12,1,25:PEN#4,8:PAPERf#4,1:WIND 
OW45,1,12,6, 16:PEN45,8:PAPER#S, 1:CL 

5S44:WINDOW#6,14,14,1,25:WINDOW47, 16 
‚88,1,1:PEN#7,8:PAPER#7,1:MOVE 46, 1 

56 

58 1A:d=8:POKE EBE78B,255:1 BREAK.OFF 
:ON ERROR GOTO 1128 

68 p=1:f1=-98:f2=8:RESTORE 1848:FOR i 
=8 TO 2:READ F$(li) :NEXT:ad="":READ 
i:WHILE i<>-1:ad=ad+CHA$(i):READ i: 

WEND 

78 READ i:WHILE i<>-1:READ m(i) :FOR 
3-8 TO m(i):READ am(i,j) :NEXT:READ 
i:WEND 

88 WINDOW SWAP 4:L0OCATE 6, 1:PRINT"”P 

A!";:LOCATE 1,23:PRINT STAING$( 12, 1 

54) ;:LOCATE 1,5:PRINT STRING$( 12,15 

4) ;:LOCATE 1,18:G0SUB 828:WINDOW SW 

AP 4A 

98 FOR i=1 TO 25:LOCATE 13,1:PRINT 

CHR$C 149) CHR$(. 32) CHA$L 149) ; : NEXT 
188 GOSUB 838:WINDOW SWAP 1:G0SUB 1 

808 

118 GOSUB 858:605SUB 988:m=8:G0OSUB 8 
18 

128 GOSUB 928:IF x>12 THEN 128 ELSE 
y=y-7:GOSUB 988:IF f2 THEN 128 ELS 

E ON y GOSUB 138,238,328,498,558,7®8 
8:G0T0 118 

138 IF pm=® THEN RETURN ELSE m=1:60 
SUB 818:G05UB 9298:IF fF2 THEN RETURN 
ELSE IF x>12 THEN 138 ELSE y=-y-7:6G 
OSUB 988:IF f2 THEN 138 ELSE ON y 6 

OTO 148,158, 168 

148 MODE 2:v=9:zm=22:605UB 188:G60T0O 
38 

158 v=8:zm=68:PRINT#B,ad; :GOSUB 188 
:GOTO 138 

168 CLS:WINDOW 16,75,4,25:6G05SUB 668 
:WINDOW 16,8909,1,25:LOCATE 1,2:PRINT 
"Nur zur Ablage - Daten sind unter 
PR! nicht mehr verwendbar!" :LOCATE 


1,3:PAINT”Zum Abspeichern Menupunkt 
[Diskette] - [Speichern] benutzen. 
” 


178 az="Ablage in Datei”:GOSUB 678: 

OPENOUT"!"+az:v=-9:zm=1888:G0SUB 188 
:CLOSEOUT:WINDOW 16,88,1,25:G0SUB 1 
889:G0TO 138 

188 j=®:zm=zm-4:WIDTH 88 

198 i=1:PRINT#v,TAB( 18) ah; TAB( 72) US 
ING"Seite ##.";jJ+1:PRINT#v:PRINT#v, 
TAB( 5) "Programmname"TAB( 25) "Kurzbes 
chreibung”TAB( 69) "I.D.":PAINT#v,STR 
ING$( 88,"-"); 

288 WHILE NOT((i+3j*zm>pm) OR(i>zm)): 
az=ap( i+j*zm) :PAINT#v,TAB(S)LEFT$(a 
z, 16) SPACE$( 4) MID$( az, 18,48) SPACE$( 
A) RIGHT$(az,6) :i=i+1:WEND 

218 IF v=B THEN LOCATE 38,25:G0SUB 

738:CLS ELSE IF v=8 THEN PRINT#8,CH 

A$C 12); 

228 IF i+j*zm>pm THEN RETURN ELSE j 
=j+1:G0TO 198 

238 IF pm=488 THEN RETURN ELSE GOSU 

B 888:pp=-p:p-=pm-12:IF p<1 THEN p=1 

248 GOSUB 1899:WINDOW SWAP 2 

258 CLS:GOSUB 858:PRINT TAB( 14) "Neu 

eingabe: Eintrag Nr."”pmt+t1; 

268 LOCATE 2,4:PRINT"Programmname 

:";:zm=16:G0SUB 748:IF fF2 THEN 38 

® ELSE ap([ pm+1)=az:GO5SUB 318 

278 LOCATE 2,5:PRINT”"Kurzbeschreibu 
ng:”;:zm=48:G0OSUB 748:IF f2 THEN 38 

® ELSE ap( pm+1) =ap( pm+1) +"/"+az:605 
uUB 318 

288 LOCATE 2,6:PRINT"Memo-I.D. (Dis 
k):";:zm=-6:G60SUB 748:IF f2 THEN 388 
ELSE ap( pm+1) =ap( pm+1) +" /"”+UPPER$( 
az) :G0OSUB 318 


298 PRINT#2:pm=pm+1:G0TO 258 

388 p=pp:WINDOW SWAP 2:f3=-1:G0T0 1 
208 

318 PRINT#2,ap( pm+1)CHRA$( 13) ; :RETUR 
N 

328 IF pm=8 THEN RETURN ELSE m=-5:60 
SUB 818:G0SUB 928:IF f2 THEN RETURN 


ELSE IF x>12 THEN 328 ELSE y=y-7:6G 
OSUB 988:IF f2 THEN 328 ELSE ON y G 
0OSUB 338,418,468:G0T0 328 
338 GOSUB 878:WINDOW SWAP 2 
348 CLS:PRINT TAB(28) "Eintrag editi 
eren":LOCATE 12,5:PAINT"<Eintrag zu 
r Editierung anklicken>"; :WINDOW SW 
AP 2:G0SUB 928:IF f2 THEN GOTO 988 
ELSE WINDOW SWAP 2:pp=y-12+p:IF pp< 
p OR pp>pm OR x<16 THEN 348 
358 PRINT CHRA$( 13) CHA$( 28) ; :GOSUB 4 
a8 
368 LOCATE 2,4:PRINT”Programmname 

:";:zm=16:az=LEFT$(ap( pp) ,zm) :6G0S 


UB 758:IF f2 THEN 398 ELSE ap(pp)=a3) 
17 


LISTING 


z+RIGHT$C ap(l pp) ‚48) :GOSUB A488 

378 LOCATE 2,5:PARINT"Kurzbeschreibu 
ng:”";:zm=48:az=MID$( ap( pp) ‚18, zm) :G 
DOSUB 758:IF f2 THEN 398 ELSE ap(pp) 
=LEFT$Cap( pp) , 17) +az+RIGHT$(ap(pp), 
7) :GOSUB 488 

388 LOCATE 2,6:PRINT"Memo-I.D. (Dis 
kK):";:zm=6:az=RAIGHT$( ap(l pp) ,zm) :G0S 
UB 758:IF f2 THEN 398 ELSE ap(pp)=L 
EFT$(ap( pp) ‚58) +UPPER$( az) :G0OSUB 48 
[4] 


398 LOCATE#2,1,Ppp-p+1:PRINT#2,ap( pp 
);:GOTO 348 
A088 LOCATE#2,1,Ppp-p+1:PAINT#2,CHR$( 
24) ap( pp) CHR$( 24) ; : RETURN 
a18 GOSUB 878 
428 CLS#2:PRINT#2,TAB( 28) "Eintrag 1 
oeschen" :LOCATE#2, 12,5:PRINT#2,"<Pr 
ogramm zur Loeschung anklicken>";:6G 
OSUB 928:IF f2 THEN GOTO 988 ELSE I 
F x<16 THEN 428 ELSE pp=y-12+p:IF p 
p>pm OR pp<p THEN 428 
A38 LOCATE#2,12,5:PRINT#2,"Bitte wa 
rten - loesche "UPPER$(LEFT$LaP([ pp) 
‚16));:FOR i=pp TO pm-1:ap(i)=apli+ 
1) :NEXT:ap( i)="":pm=pm-1:GOSUB 858: 
IF pm=® THEN RETURN 
448 IF p+13>pm THEN IF p>1 THEN p=p 
-1:1 SCROLL.DOWN, 16,88, 12,y:LOCATE 1 
‚1:PARINT ap(p);ELSE IF y<25 THENI SC 
ROLL.UP,16,88,y,25 ELSE LOCATE 1,14 
:PARINT CHA$( 18) ;ELSEI SCROLL.UP, 16,8 
@,y,25:LOCATE 1,14:PRINT ap(p+13); 
458 GOTO 428 
468 IF pm<2 THEN RETURN ELSE CLS:LO 
CATE 28,2:PRINT"”<SORTIERE LISTE>":F 
OR i=1 TO pm 
478 az=-ap(i):FOR j=i+i TO pm:IF az> 
ap[ JJTHEN apli)=ap( j) :ap( j)=az:az=a 
pli) 
4B8 NEXT:NEXT:GOSUB 1888 :RETURN 
A498 m=3:G0SUB 818:G0SUB 928:IF f2 T 
HEN RETURN ELSE IF x>12 THEN 498 EL 
SE y=y-7:GOSUB 988:IF f2 THEN 498 E 
LSE ON y GOSUB 589,549:60T0 498 
sam GOSUB 878:WINDOW SWAP 2:LOCATE 
28,1:PARINT”Farben anpassen":FOR i=® 
TO 2:LOCATE 5,4+i*2:PRINT f$(li);:L 
DCATE 25,4+i1*2:PRINT USING"L[AA1"; FL 
i);:LOCATE 35,4+i1*2:PRINT CHR$( 247) 
CHR$C 32) CHA$L 246) ; :NEXT 
518 GOSUB 998:IF fF2 THEN WINDOW SWA 
P 2:G60T0 988 ELSE y=(y-4) /2:x=(x-58 
)/3:IF x<® OR x>1 OR y<@® OR y>2 THE 
N 518 ELSE x=x+x-1:f(ly)=fly)+x:IF f 
(y)<@ THEN f[(y)=@ ELSE IF f(ly)>26 T 
HEN f(y)=26 
528 LOCATE 25,A4A+y#2:PRAINT USING"L## 
1";fly);:IF y=2 THEN BORDER f[y)ELS 
E INK y,f(y) 


538 GOTO 518 
548 GOSUB 878:WINDOW SWAP 2:LOCATE 
28,1:PAINT"Titelzeile anpassen":LOC 
ATE 5,4:PRINT"Bitte geben Sie die n 
eue Titelzeile ein":LOCATE 8,6:PRIN 
T":";:zm=-48:az=ah:G0OSUB 758:ah=az:W 
INDOW SWAP 2:G0T0 988 
S58 CLS:WINDOW 16,75,3,25 
568 m=-4:G605SUB 8198:G0SUB 668 
578 GOSUB 928:IF f2 THEN WINDOW 16, 
80,1,25:G0T0O 1888 ELSE IF x>12 THEN 
578 ELSE y=-y-7:G0OSUB 988:IF f2 THE 
N 578 ELSE ON y GOSUB 580,598,598,6 
28,630,649,658:G0T0 568 
588 IF pm=® THEN RETURN ELSE az="Da 
teiname zum Speichern" :GOSUB 678:IF 
f2 THEN RETURN ELSE OPENOUT"!"+az: 
PAINT#9,pm:PRINT#9,ah:FOR i=®8 TO 2: 
PAINT#9,f(i):NEXT:FOR i=-1 TO pm:PRAI 
NT#9,ap(i) :NEXT:CLOSEOUT :RETURN 
598 zi=y:LOCATE#7,15,1:PRINT#7,"<Bi 
tte zu ladende Datei anklicken>";:G 
OSUB 688:IF f2 THEN RETURN ELSE OPE 
NIN"”!"+az:INPUT#9,v:LINE INPUT#9,ah 
:FOR i=8 TO 2:INPUT#49,fli) :NEXT:GOS 
UB 868:IF zi=2 THEN pm=8 
688 WHILE NOT(EOF OR pm=488) :pm=pm+ 
1:LINE INPUT#9,ap( pm) :WEND:CLOSEIN 
618 IF pm=488 THEN LOCATE 18,18:PRI 
NT CHR$( 7) CHR$L 24) SPACE$( 34) :LOCATE 
18,11:PAINT" DATEI ZU GROSS - SPE 
ICHER VOLL ":LOCATE 18, 12:PRAINT SP 
ACE$( 34) CHA$( 24) :LOCATE 28,23:G0SUB 
738:G0TO 858 
628 GOTO 858 
638 LOCATE#7,15,1:PRINT47,"”<Bitte z 
u loeschende Datei anklicken>";:608 
uUB 688:IF f2 THEN RETURN ELSEIERA,®@ 
az:GOSUB 6698:G0T0O 638 
648 LOCATE#7,14,1:PRINT#7,"<Bitte u 
mzubennende Datei anklicken>"; :GOSU 
B 688:IF f2 THEN RETURN ELSE a=az:a 
z="Neuer Dateiname" :GOSUB 678:IF f2 
THEN RETURN ELSEIREN,@az,@a:RETURN 
658 IF d THENIA:d=8:RETURN ELSEIB:d 
=-1:RETURN 
668 CLS#7:CLS:CAT:RETURN 
678 WINDOW SWAP 7:CLS:LOCATE 15,1:P 
ARINT az"”:"; :zm=12:G0SUB 748:WINDOW 
SWAP 7:RETURN 
688 GOSUB 998:IF f2 THEN RETURN ELS 
E IF x<16 OR y<S THEN 688 ELSE x=x- 
16:x=x-[(x MOD 28) :y=-y-2:az="":3j=8:F 
OR i=1 TO 12:LOCATE i+x,y:1 GETCHAR, 
@j:az=az+CHR$( j) :NEXT 
698 IF ASC(az)=32 THEN 688 ELSE FOR 
i=1 TO 17:LOCATE x+i,y:CALL &BBBA: 
NEXT :RETUAN 
788 KEY DEF 68,8, 148:KEY 148,"GOTO 
38"+CHRA$( 13) :PEN 1:PAPER 8:MODE 2:L 
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LISTING 


OCATE 5,2:PAINT"PR! unterbrochen. 
Warmstart mit <TAB>. (C) ESCape! 1 
987, Michael Folz.”CHRA$( 18) CHR$( 18) 
:END 
718 ai="":CALL &BBBA:WHILE ai="":ai 
=INKEY$:WEND:CALL EBBBA:RETURN 
728 GOSUB 718:PAINT ai; :RETURN 
738 PRINT"<Weiter mit Leertaste>";: 
GOSUB ?718:WHILE ai<>" ":GOSUB 718:W 
END : RETURN 
748 az=SPACE$( zm) 
758 zz=1:x=POS( #8) +1:y=VPOS( #8) :PRI 
NT"[L”"az"]”;:LOCATE x,y 
768 GOSUB 718: zb=ASC( ai) :IF zb=242 
AND zz>1 THEN zz=zz-1:PRINT CHRA$(B) 
;:G0OTO 768 ELSE IF zb=243 AND zz<zm 
THEN zz=zz+1:PRINT” "-:GOTO 768 
778 IF zb=13 THEN IF az=SPACE$( zm) T 
HEN f2=-1:RETURN ELSE f2=8:RETURN 
788 IF zb=127 AND zz>1 THEN zz=zz-1 
:az=LEFT$(az,zz-1)+RIGHT$( az, zm-zz) 
+" "-LOCATE x,y:PAINT az; :LOCATE x+ 
zz-1,y:60TO 768 
798 IF zb=16 THEN az=LEFT$(az,zz-1) 
+RIGHT$( az, zm-zz) +" ":LOCATE x,y:PR 
INT az;:LOCATE x+zz-1,y:60T0 768 
888 IF zb>12A4 OR zb<32 OR zz>zm THE 
N 768 ELSE MID$(az,zz,1)=ai:zz=zz+1 
:PAINT ai; :GOTO 768 
818 CLS#5:PRINT#5,TAB(( 14-LEN( am( m, 
8)))/2)amlm,®8) :FOR i=1 TO m([m) :LOCA 
TE#5,(14-LEN( am(m,i))) /2,i+2:PRINT# 
S5,am(m,i) ; :NEXT:PRINT#5,STRING$( 12, 
154) ; :RETURN 
828 v=POS( #8) :PRINT CHR$( 158) STRING 
$( 9, 154) CHA$( 156) :LOCATE v,VPOS( #8) 
:PAINT CHRA$( 149)" ABBRUCH "CHRA$( 149 
)::LOCATE v,VPOS(C #8) :PRINT CHR$( 147) 
STRING$( 9, 154) CHR$([ 153) :RETURN 
838 CLS#6:LOCATEA6,1,24:PRINT#6, CHR 
$[ 244) CHA$C 2408) ;:IF fi THEN LOCATE#A 
6,1,12 ELSE LOCATE#6,1, 1 
848 PRINT#6,CHR$( 241) CHR$( 245) ; :RET 
URN 
858 LOCATE#A,1,24:PRINT#4,"” Voll: " 
USING" #44” ; pm; :LOCATE#4,1,25:PRINT# 
4," Frei: "USING" #44” ;488-pm; :RETUR 
N 
868 IF FLB)<>FLI)THEN INK 8,f(B) :IN 
K 1,f(1):BORDER f(2) :RETURN ELSE IN 
K 8,f(®) :INK 1,26-f( 8) :BORDER f(2): 
RETURN 
878 IF f1 THEN RETURN ELSE fi=-1:IF 
pm<1 THEN 898 ELSE LOCATE 1,1:PRIN 
T STAING$( 12,11); :GOTO 898 
888 IF f1 THEN RETURN ELSE fFi=-1:CL 
S 
898 GOSUB 838:WINDOW SWAP 1:LOCATE 
13, 11:PRINT CHA$( 22) CHA$L 1) STRING$( 
68, 154) CHR$( 22) CHR$( B) ; : WINDOW SWAP 


19 


Es ww 


3:RETURN 
988 IF Fi1=-B® THEN RETURN ELSE f1=-8:6 
OSUB 839:WINDOW SWAP 3:LOCATE 13,11 
:PRINT CHA$( 149) CHR$( 32) CHA$( 149); : 
WINDOW SWAP 1:IF pm=® THEN CLS:RETU 
AN ELSE FOR i=1 TO 11:L0CATE 1,25:P 


RINT CHA$( 18) ;:IF p+i+14<pm THEN PR 
INT ap( p+ti+15) ;ELSE PRINT 


918 NEXT:RETURN 

928 GOSUB 998:IF f2 THEN RETURN ELS 

E IF x<13 THEN f2=8:RETURN ELSE IF 

x>15 THEN f2=8:RETURN 

938 IF y=25 AND p+24+f1#11<pm THEN 

p=p+1:] SCROLL.UP, 16,88, 1-f1#*11,25:L 

OCATE 1,25+f1*11:PRINT ap( pt24+f1%#1 
1);:G0OTO 928 

948 IF y=24 AND p+24+f1*#11<pm THEN 

p=p+24+f1*11:G0OSUB 1888:G60T0 928 

958 IF y=2-f1*11 AND p>1 THEN p=p-2 

4-f1%*11:G0OSUB 18898:G0T0 928 

968 IF y=1-f1*11 AND p>1 THEN p=p-1 
:] SCROLL.DOWN, 16,88, 1-f1#11,25:L0CA 

TE 1,1:PAINT ap(p);:GOTO 928 

978 GOTO 928 

988 IF y<1 OR y>m({m) THEN f2=-1:RETU 

RN ELSE WINDOW SWAP 5:FOR i=1 TO 12 
:LOCATE i,y+2:CALL EBBBA:NEXT:WINDO 

W SWAP 5:f2=8:RETURN 

998 | ICON, icon:y=26-( YPOS+8) /16:x=( 

XPOS) /8:IF x<13 AND y>17 AND y<22 T 

HEN f2=-1:RETURAN ELSE f2=8:RETURN 
1888 CLS:IF pm=® THEN RETURN ELSE i 

=8 

1818 IF p<1 THEN p=1 ELSE IF p+(24+ 

f1%#11)>pm THEN p=pm-( 24+f1*#11) :GOTO 
1818 

1828 WHILE NOT((p+i>pm) OR(i>24+f1%#1 
1)) :PAINT ap(p+i) :i=i+1:WEND:RETUAN 
1838 DATA 240,8,24,9 

1848 DATA Hintergrund, Vordergrund, R 

andfarbe 

1858 DATA 7,27,64,27,79,-1 

18608 DATA 8,6,Hauptmenu, Ausgabe, Ein 

gabe ‚Verwaltung, Hilfen,Diskette,End 

e 

1878 DATA 1,3,Ausgabe ,‚Bildschirm,Dr 

ucker,Diskette 

1888 DATA 3,2,Hilfen,Farben,Uebersc 

hrift 

1898 DATA 4,7,Diskette,Speichern,La 

den,Nachladen,Katalog,Loeschen, Umbe 

nnen,Laufwerk 

1188 DATA 5,3,Verwaltung, Editieren, 

Loeschen, Sortieren 

1118 DATA -1 

1128 IF ERR=25 THEN RETURN ELSE IF 

ERAR=32 OR ERR=31 THEN RESUME NEXT 
1138 WINDOW 1,88, 1,25:LOCATE 25,12: 

PRINT CHRA$( 7) CHR$( 24) SPACE$( 41); :LO 

CATE 25, 13:PARINT USING” 


FOLGENSCHW 33 


| LISTING | 


ERER PROGRAMMFEHLER (##/#4#) ";ERR; 
ERL; :LOCATE 25, 14:PRINT SPACE$(A1)C 
HR$( 24) ; :LOCATE 35,25:605SUB 73@:RES 
UME 38 


PROGRAMIMN-LISTER 


Fortsetzung von Seite 15 


3. Verwaltung 

Enthält die Untermenüpunkte „Editieren“ (eines 
Datensatzes), „Löschen“ und „Sortieren“. Rückkehr 
durch Anklicken von „Abbruch“. 


4. Hilfen 
Enthält die Untermenüpunkte „Farben ändern‘ sowie 
„Überschrift“ (der Programmliste). 


5. Diskette 

Alle wichtigen Diskettenoperationen werden hier auf- 
gerufen, wie zum Beispiel speichern, laden, mergen, 
löschen, umbenennen, cat, Laufwerk wechseln. Nur 
wenn Sie die Daten unter diesem Menüpunkt ablegen, 
können Sie auch wieder normal eingelesen werden! 


6. Ende 
Zurück ins Basic. Mit der <tab>-Taste ist ein Warm- 
start ohne Datenverlust möglich. 


Das Abtippen dieses Programms lohnt sich. Und 
wenn Ihnen die Tipperei zu viel ist, bestellen Sie am 
besten unsere Softbox! 

(JE) 


Wer kennt es nicht, das Problem: Man will einige 
selbstdefinierte Zeichen in ein eigenes Programm 
einbauen oder andere Zeichensätze als den System- 
zeichensatz kreieren. Die Möglichkeit, auf einem 
Blatt Papier die Zeichen pixelweise zu entwerfen, 


artet zumeist schnell in eine Sisyphus-Arbeit aus. 
Als Alternative hat unser Autor Jens Nave einen 
menügesteuerten Zeichenditor geschrieben, den 
wir in diesem Heft vorstellen. 

Der Editor wird mit Hilfe der Tastatur bedient 
der Einsatz eines Joysticks ist nicht vorgesehen. 
2. RUN läuft auf den CPC-Typen 664 und 


oa\ 
u 


Nach dem Starten des Programms erfolgt zuerst die 
Abfrage, ob man mit einem Farb- oder einem Grün- 
monitor arbeitet. Entsprechend werden dann die 
Farben gesetzt. Dann erfolgt die Abfrage, ob ein 
Zeichensatz erstellt werden soll. Beantworten Sie 
diese Frage mit „Ja“, wird eine Datei, deren 
Namen Sie noch eingeben müssen, geöffnet. 
Dadurch haben Sie die Möglichkeit, die Zeichen, 
die Sie editieren wollen, in diese Datei zu schreiben. 
Wollen Sie jedoch nur ein paar Zeichen definieren, 
um sie später in ein Programm zu integrieren, ist es 
nicht notwendig, extra eine Datei zu eröffnen; in 
diesem Fall beantworten Sie die Frage nach der Zei- 
chensatzerstellung mit ‚Nein“. 
Danach erscheint eine 8x8-Matrix, die jedem Zeichen 
zu Grunde liegt. Links davon können Sie das Zeichen 
in Originalgröße „bewundern“. Rechts in der Editier- 
matrix befindet sich die Liste der Befehle, die Ihnen 
zum Arbeiten zur Verfügung stehen. Diese können 
vollständig und in erläuterter Form mit Hilfe von 
<H>elp eingesehen werden. Hier die wichtigsten 
Kommandos: Drehen, Spiegeln, Punktspiegeln, Inver- 
tieren, Verschieben, Übernehmen von Zeichen aus 
om Originalzeichensatz, Beenden, Löschen und 
uit. 

Nach Beendigung des Editiervorganges eines Zeichens 
wird der Editorteil durch Quit verlassen. Es muß dann 
angegeben werden, an Stelle welchen Zeichens das 
neue Zeichen erscheinen soll. Dazu wird die entspre- 
chende ASCII-Nummer eingegeben, die Sie im Hand- 
buch zum CPC finden. 
Beim Dateibetrieb muß die Arbeit immer mit „Be- 
enden“ abgeschlossen werden, da ansonsten die Datei 
nicht geschlossen und die Daten nicht abgespeichert 
werden. Während des Programmlaufes sollte immer 
die entsprechende Diskette im Laufwerk verbleiben, 
da sonst eine Fehlermeldung ausgegeben wird. 
Außerdem hat der Autor noch ein Ladeprogramm mit- 
geliefert, mit dem Sie Zeichensätze einladen können, 
die Sie mit dem Editor erstellt haben. 

(JE) 


;prehen 


H—-S5pliegeln 


N Sperieceln 
Site 18PTegein 
NWebernehnten 


Werschieben 
szertieren 
DArase 


thııit eip 
Ijesenden 


LISTING 


PERRRUUUURUUUUNNUUGHHUUEHURRUURTET 


’# LADEPROGRAMM FUER ZEICHENSATZ# 
"= DER MIT DEM ZEICHEDITOR ER- 
'* STELLT WORDEN IST VON 

* JENS NAVE 

* FUER 

x SCHNEIDER AKTIV 

u; CPC 6864/6128 
RHRHRSRRRSHRRRRRRSHRRRIHHHHRHRRIIHNTN 
18 MODE 1:CLS 

28 SYMBOL AFTER 32 

38 LOCATE 3,2 

awW PRINT” Ladeprogramm fuer Zeichen 
saetze" 
sa LOCATE 
68 PRINT" 
78 LOCATE 
8% PRINT” 


x 


VON RAUN - 
Bee ae 


5,4 

(nur im ZEICHED-Format) 
3,7 

Dateiname des Zeichensatz 


98 LOCATE 5,9 

188 INPUT "",d$ 

118 IF INSTA(d$,”.")=B THEN d$=d$+" 
.dta” 

128 PRINT:PRINT:PRINT” 
“ ’ 

138 OPENIN d$ 

148 WHILE NOT EOF 

158 INPUT#9,n,w1,w2,w3,w4,wW5,w6,w7, 
wB 
168 
8 
178 
188 
198 


Neue Zeichen 


SYMBOL n,w1,w2,w3,w4,w5,wW6,wW7,w 


PRINT CHR$(n);" "”; 
WEND 
PRINT :PRINT 


NUTZEN 

SIE DIE 
KOSTENLOSEN 

KLEIN- 


ANZEIGEN 
FÜR PRIVAT 
IN 
SCHNEIDER 

AKTIV 


188 RR EEE 
118 ’* ZEICHENEDITOR * 
ı2n ’* VON * 
139 ’* JENS NAVE * 
148 ’* FUER * 
158 ’* SCHNEIDER AKTIV * 
168 ’* ECPC 664/6128 JE* 
17 FERNEN IHERHETTEEN 
188 

ı90 

88 

218 MODE 1:CLS 

228 ’Begruessungsbildschirm 


230 
‚26 


INK 8,8:INK 1,26:{INK 2,26:INK 3 
:BORDER @:PEN 1 

?AB LOCATE A,? 
258 PRINT” Zeichen Designer/Editor 
v1)” 
268 LOCATE 4,3:PAINT STRLNGS(31,"=" 
) 


278 LOCATE 6,8 

288 PRINT CHR${ 164) ;”" 1987 by Jenä 
oft ” 

290 

380 ° 

319 LOCATE 4,15 

328 CALL &BBIYC auf invers schalten 

338 PRINT"M";:CALL &BBIC 

348 PRINT"onochrom oder "; 

358 CALI ERBBIC 

a6A PRINT"F"; 

370 CALI. &EBBIC 

388 PRINT”"arbig? ";CHRA$( 143) 

398 x$=INKEY$:IF x$="" OR (LODWER$I( x 
$) <>"m" AND L.OWER$Lx$)<>"f”") THEN 
398 

au8 LOCATE 27,15:PA1NT UPPER$( x$) 

419 LOCATE 4,19 

428 PRINT” Soll ein Zeichensatz 

aaa LOCATE 4,21 

aaa PRINI” erstellt werden ( j/n)? " 


;CHA$( 143) 

458 a$=INKEY$:IF a$="" OR (LOWER$ a 
$) <>" j" AND LOWER$L a$) <>"n") THEN 
458 

466 LUCATE 28,21:PRINT UPPER$( a$) 
479 IF LUOWER$La$)="j" THEN flag=1:L 
OCATE 1,25:1NPUT” Dateiname des Zei 
chensatzes: "”,d$ ELSE 518 

480 IF d$="" THEN a$="n" 

a98 IF LEN(d$)>8 THEN PRINT CHR$( 7) 
:GOTO 479 

son d$=d4$+".dta” 

510 CLS 

s22 IF LOWER$CX$)="F" THEN INK 8,0: 
INK 1,19:INK 2,6:INK 3,24:BORDER ® 

539 SYMHOL. AFTER 32 

5aB SYMBOL 143,127,127,127,127,127, 
127, 127,0 


558 IF LOWER$(a$)="j" THEN OPENOUT 29 
21 


LISTING 


d$ 

568 GRAPHICS PEN 1:PEN 1:PAPER 8 
578 DIM m(8,8),d(8,8) 

580 GOSUB 9818 "bildschirmaufbau 
598 x-1 : y=1 ’Cursorposition links 
oben 

2. ENSUM 7819 ° Gursorring setzen 


18AR "Hauptmenueabfrage mit Sprungt 
abelle 

na 

1828 x$=INKEY$:IF x$="" 
183@ IF LOWERSCK$)="b" 
gzr19A:GuUNNn 1920 "Beenden 
ı#Aa@ IF LOWER$(x$) :"d” THEN GOSUB 6 
V19:G05UB 1AMIB:G0OSUB 7812:C0TD 182 
8 Cursor loeschen/drehen/C. setzen 
1950 TF LOWER$(Ax$)="y" THEN GOSUB 6 
B19:G05UB 1590198:G60SUB 7919:G0OTO 182 
% "Cursor ioeschen/y-Spiegeln/ÜC. se 
tren 

1962 IF LOWER$(x$):="x”" THEN GUOSUB 6 
M19:G0OSUR 169018:GQSURB 79198:G0T0 182 
“ "Cursor loeschen/x- Spiegeln/C. se 
ten 

1978 IF LOWEH$LXx$)="p" THEN GOSUB 6 
A1B:G0SUB 17919:G0S5UB 7919:60T0 182 
A "Cursor loeschen/Punktspiegeln/C. 
setzen 

1880 IF LOWEH$Ex$)="e" 
8819:G0T0 19? ’Erase 
1998 IF LOWER$(x$)="i" THEN GUOSUB 6 
B19:G0SUB 19919:605SUB 7919:G0TO 182 
W 'Cursor loeschen/Zeichen invertie 
ren/Ü. setzen 

1188 TF LOWER$EX$)="q” THEN GOSUB B 
819:5605SUB Y9A18:GC0OTO 18298 "’Zwischenb 
ild/Bildschirmaufbau 

1118 IF LOWER$CK$)="U” THEN 
6R1B:GCOTO 19820 "Vebernehmen 
1170 IF LOWERS(Xx$) ="v" THEN 
8H18:C0TD 1A2M "Verschieben 
11738 TF LUOWERS$SCKX$)="h" THEN 
1P18:G0SUB 9818:G0T0O 1928 
dschirmaufbau 
1148 IF LOWER$(x$)="s” THEN LOCATE 
2#x+B,2#y+A:xx=x:yy=y:PRINT CHRA$( 14 
3) :GUSUB 29M1@:mlx,y)=1 "Punkt setz 
en 

1158 IF 1.OWER$CX$)="1" THEN LOCATE 
2rx+B,2#y+A:xx=x:yy=y:PRINT CHR$( 32 
) :G0OSUB 28818:m(x,y)=® ’Punkt loesc 
hen 
1168 IF ASCLx$)=13 THEN xx=x:yy=y: 
mlx,y)=(mix,y)+1) MOD 2:LOCATE 2*x+ 
B,2#y+4:1F mlx,y)=1 THEN PRINT CHA$ 
( 143) :GOSUB 29818:G0T0 1928 

ELSE PRINT CHA$( 32) :GOSUB 28819:6G0 
TO 1828 "Punkt invertieren 
117 IF ASCLx$)=248 THEN GOSUB 6818 


THEN 1026 
THEN GOSUB 2 


THEN GOSUB 1 


GOSUB 2 
GOSUB 2 


GOSUB 3 
’Help/Bil 


:G0SUB 18839:G0SUB 7818:G0T0 1828 ” 
Ring loeschen/an obere Position/Rin 
g setzen 

1188 IF ASC(x$)=249 THEN GOSUB 6918 
:GOSUB 119398:G0OSUB 79818:G0OTO 19828 
Ring loeschen/an untere Position/Ri 
ng setzen 

1198 IF ASC(x$)=256 THEN GOSUB 6818 
:G0OSUB 1293%8:G0SUB 7819:G0T0 1928 
Ring loeschen/an linke Position/fin 
g setzen 

1208 IF ASC(x$)=251 THEN GOSUB 6818 
:G0OSUB 139039:G605UB 798198:G0OTO 18298 
Ring loeschen/an rechte Position/Ri 
ne setzen 

1278 IF ASCLx$)=248 THEN GOSUB 6818 
:GOSUB 28198:G0SUB 7919:G0T0 19828 ’A 
ing loeschen/1 oben/Ping setzen 
1228 IF ASCLx$)=?41 THEN GOSUB 6818 
:GOSUB 39819:G0SUB 7818:G60T0 1928 ’R 
ing loeschen/1 unten/Ring setzen 
123@ IF ASC(x$)=242 THEN GOSUB 6418 
:GOSUB AU19:G05UB 7818:G0TO 19028 ’A 
ing loeschen/1 links/Ring setzen 
1248 IF ASC(x$)=243 THEN GOSUB 6818 
:GOSUB 58B18:G05UB 7818:G0TO 1928 ’R 
ing loeschen/1 rechts/Ring setzen 
1258 IF ASC(x$)=244 THEN GOSUB 6818 
:GUSUB 21M19:G0SUB 79108:G0T0 19208 
Versthieben nach oben 

126@ IF ASC(x$)=245 THEN GOSUB 6818 
:GDSUB 2291%:G0SUB 7818:G0TO 1828 
V. unten 

1?77@ IF ASC[Ex$)=246 THEN GOSUB 6818 
:G0SUB 23219:G0SUB 7919:G0T0 1928 
V. links 

1288 IF ASC(x$)=247 THEN GOSUB 6818 
:GOSUB 24919:G6G0SUB 79819:G0T0 1928 
V. rechts 


1299 GOTO 1928 

1308 

PI.T.T. BR £.5 02 2 2222222022 2.2.2202 .2.2 2.2 2222.22 
2818 ’*** Cursor 1 nach oben *### 
PI PILZ 58 38 2 22 2:2 5222222 22.2 2 .2°2.2.2 2222 
2838 y=y-1:IF y=@ THEN y=ei 

2848 RETURN 

2059 

3808 HR HRRHRRRHRIIE NT 
3819 '#** Cursor 1 nach unten ###* 
je 1, PeY . La 25 25 5 2225222. 2 52.2222 2.202:2 22.2020 
30838 y=y+1:IF y=9 THEN y=8 

3848 RETURN 

3958 

249098 er HRRHHHRHRHRSEH UNE EEN 
4019 ’**## Cursor 1 nach links #*# 
au20 RHRRRRRHRRSHHRRHRHSREIHH IE 
4838 x=x-1:IF x=@8 THEN x=1 

4848 RETURN 

48590 

sg er RRBRHRORORHRRRTRIN 
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LISTING 


5818 
5828 


’*### Cursor 1 nach rechts *### 
& 25.2.2. 2.2.272.2°2.2.2. 2.2.2072. 2.2.2. 2.0. 2.2.202.208.7 
sa38 x=x+1:IF x=9 THEN x=8B 

5848 RETURN 

5840 ’ 

6a09 "ErRHRRRRRSESEREEEIHEN 


6818 ’*## Cursorring loeschen #### 
6H2O RRUECUREEENU EEE 


6838 GRAPHICS PEN 8 

6048 MUVE 140+(x-1)*32,324-( y-1)*32 
6858 DRAW 164+( x-1) #32, 324-( y-1) #32 
6868 DRAW 164A+( x-1) #32, 384-( y-1) *32 
6078 DRAW 14B+( x-1) #32, 388-( y-1) #32 
60888 DRAW 14B+[ x-1) #32, 324-( y-1)*32 
6898 RETURN 

6188 

7888 
7818 
7028 
7838 
7048 
7850 
78608 
7078 


RRRRRRROHHRTIIHE STEIF IE HEINE 
'###% Cursorring setzen ##### 
RRHRHHRRRRSHHRHHRIIHSTIEIHIESE SEN 
GRAPHICS PEN 2 

MUVE 14B+( x-1) #332, 324--( y-1)*32 
DRAW 164+( x -1) #32, 324-( y-1) #32 
DRAW 164+( x-1) #32, 388-( y-1) *32 
DRAW 148+( x --1) #32,388-( y-1) #32 


7888 DRAW 14B+( x-1) #32, 324-( y-1) #32 
7898 RETURN 

7ı99 * 

BBOUG RER EEE HUNTHNETH 
8818 ’*Zwischenbild mit Untermenue* 
BO2O HruNur HH HUUNUHTUETEN 
8m3B PEN #1,2 

8048 INPUTAI," ASCII-Nummer des 
Zeichens: "”,n 


aN5W IF n=8 THEN RETURN 

806% IF n<32 OR n>255 THEN GOSUB 38 
B19:G0SUB 9B18:PAINT CHRA$(?):GOTO 8 
830 
8270 
88BM 
8898 


PEN 1 

c1.$ 

"Definiertes Zeichen erzeugen 
8108 FOR y=1 TO 8 

8118 sum( y) =128*m( 1,y) +64*m{ 2,y) +32 
“ml 3,y)+16#mlA,y)+8*tml5,y) +4*m(6,y) 
+?#m(7,y)+m{[B,y) 

812@ NEXT 

8138 SYMBOL n,sum( 1) ,sum(2),sum( 3), 
sum{ 4) ,sum(5) ,sum{ 6) ,sum( 7?) ,sum( 8) 
8148 ’Werte des Zeichens ausgeben ( 
SYMBOL -Format!) 

8159 LOCATE 4,4 


8168 PRINT” Das neu definierte Zeic 
hen >"; 

8178 PEN 2 

8188 PRINT CHR$(n); 

8198 PEN 1 

82088 PRINT"”<” 

8218 LOCATE 6,6 

8228 PRINT” mit der Nummer”; 

8238 PEN 2 

8248 PRINT n;:PEN 1:PRINT"besitzt” 


8258 
8268 


LOCATE 7,8 
PRINT” die hexadezimalen Werte 


8278 
8288 
8298 
n; 

8308 
8318 
8329 
8338 
8348 
8358 
8368 
8378 


PEN 3 

LOCATE 3,18 

IF n<188 THEN PRINT USING"#A”; 
ELSE PRINT USING” AHA" ;n; 

FOR x=1 TO 8 

PRINT”, &”;HEX$( sum( x) ,2); 

NEXT 

PEN 1 

"Untermenue: 

LOCATE 2,13 

PRINT” Bitte waehlen Sie:" 

PEN 3 

8388 LOCATE 5,16 

8398 PRINT” a) das Zeichen >";CHR$( 

n);"< veraendern"” 

8488 1LOCATE 5,18 

8418 PRINT” b) ein neues Zeichen ed 

itieren" 

8428 IF flag<>1 THEN 8498 

8438 LOCATE 8,19 

8448 PRINT” (ohne Speicherung) " 

8458 LOCATE 5,21 

8468 PRINT” c) das Zeichen >";CHR$L 

n);”< abspeichern" 


8478 LOCATE 8,22 

8458 PRINT” (Nummer”;n;”)" 

8498 PEN 2 

8508 LOCATE 3,24 

8518 PRINT” Ihre Wahl: ";CHR$L 143) 


8528 
8538 


x$=1NKEY$:IF x$="" THEN 8528 
IF ((flag-=1) AND (LOWER$I x$) >= 
a” OR LOWER$(x$)="b" OR LOWER$(x$) 
="e")) OR ((flag<>1) AND (L 
OWER$( x$) ="a”" OR LOWER$( x$) 

="p")) TH 
EN LOCATE 15,24:PRINT UPPER$Ex$) EL 
SE 852& 

8548 IF LOWER$x$)="a"” 
8558 IF LOWER$EXx$)="b" 
:x=1:y=1:RETURN 

8568 IF LOWER$Ex$)="c" AND flap=1 T 
HEN WHITE#9,n:FOR a=1 TO 8:WRITEAY, 
sum{ a) :NEXT:FRASE m:x=1:y=1:RETUAN 
8578 

GgHHH "Harrunuuur euren 
9819 "*##=# Bildschirmaufbau ##*## 
9929 "mn 
9838 MODE 1:CLS:PEN 1 

99849 WINDOW #1,1,48,24,25 

9858 LDCAIE 1,2:PHINT”Zeichen Desig 
ner/Editor Kommandos:"” 

9868 1L.OCATE 1,3:PRINT STAING$( 23,” = 
pR 

9878 1.OCATE 26,5:PRINT"Punktkommand 
os:" 

9888 1.DCATE 27,7:CALL EBB9C:PRINT"S 
"::CALL EBB9C:PRINT"”etzen” 


THEN RETURN 
THEN ERASE m 
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LISTING 


9898 LDCATE 27,8:CALL EBB9IC:PRINT"L 11818 ’* Cursor in unterste Zeile # 


91908 LUCATE 27,9:CALL &BBIC:PRINT"EC 11838 y=8:RETUAN 
A”; :CALL &6BB9IC:PRINT": invert."” 11240 * 


9118 LUCATE 26, 11:PRINT"Zeichenkomm 12808 rm neo 
„„" 12818 °** Cursor ganz nach links #* 
912@ LOCATE 27,13:CALL &BB9C:PRINT" 12020 "EURE En 


D”; :CAl.L &BB9C:PRINT”rehen" 12838 x-1:RAETURN 

93138 LOCATE 27, 1A:CALL EBBIYC:PRINT" 2848 

x": :CAlL EBB9C:PAINT"-Spiegeln” 13000 BE HRHHHRHRRHRRIESRIEIRNE SEE 
91AM LUCATE 27,15:CALL EBBYC:PAINT" 13818 °’* Cursor ganz nach rechts * 
Yu .: CALL EBB9C:- PRINT "-GSpiegeln" 130? FREE 
9159 LUCATE 27,16:CALL &BBYC:PRINT” 13838 x=8B:RETURN 

P"; :CALL &BB9T:PRINT"”"kKt.-Spiegeln 139048 
9168 LOCATE 27,17:CAlLL &EBBIYC:PRINT" 13050 

U"; :CALL &68B9C:PRINT"ebernehmen" 140808 eemsssetsHREHIEE 
31780 LOCATE 27,18:CALL &BBY9C:PRINT” 14818 ’*#* Drehen des Zeichens ##* 
V";:CALl. &BB9C:PRINT"erschieben" 14920 "FREE EEE 
9188 LOCATE 27,19:CALL EBBIC:PRINT” 14983@ FOR a=-1 TO 8 

1"; :CALtl. &8B9C:PRINT"nvertieren” 14848 FOR b=1 TO 8 
919% LOCATE 27,28:CALL EBB9C: PRINT” 14856 d(a,b)=m( 9-b,a) 

E”; :CALL EBBYC:PRINT"rase" 1486M NEXT:NEXT 
9298 LOCATE 27,22:CALt. EBBIC:PRINT" 14079 FOR a=1 10 8 

Q”; :CALL EBB9YC:PRINIT"uit";” "; 14888 FOR b=1 TO 8 

9218 CALL. GABYC:PRINT"”H"; :CALL &6BB9 14898 m(a,b)=d(a,b) 

C:PRINT”elp" 14188 LOCATE 2*a+8,?2*b+4 

9228 1LOCATE 27,23:CALL &8B9C:PRINT" 14110 xx=aryy=b 

B"; :CALl. &EBB9U:PRINT"eenden"” 14128 IF m(la,b)=1 THEN PRINT CHRA$SLCA 
9238 LOCATE 1,8:PRINT"Normal-" 43) :GOSUB 79918 ELSE PRINT CHRA$( 32 
9249 LOCATE 1,9:PRINI”groesse” ):BGOSUB 28818 ’Punkt setzen/loeschen 
9.58 "Matrixraster zeichnen 14139 NEXT:NEXT 

9268 GRAPHICS PEN 3 74349 RETURN 

278 FOR x=136 TO 392 STEP 32 1a150 

9288 MÜUVE x,328 : DRAW x,72 15800 meer 
9298 NFXT 159109 ’##&H#aHE y-Spiegeln F#t#+tr##H# 
9398 FOR v=72 TO 328 STEP 32 A5UDM TREUEN EHEN 
9318 MOVE 136,y : DRAW 392, y 15838 FOR a=1 TO 8 
9329 NEXT 15848 FOR b=1 TO 8 
9338 GOSUB 27818 "Umrahmung d. Kont 15858 d(a,b)=m(9-a,b) 

rollzeichens 15869 NEXT:NEXT 
934% ’Arrayinhalt von m in der Matr 15870 FOR a=1 TO 8 

ix darstellen 15889 FOR b=1 TO B 
9358 PEN 1 15898 m(a,b)=d(a,b) 
9368 FOR x=1 TO 8 1519@ LOCATE ?2*a+8,2*b+4A 
9378 FÜR y=-1 TO 8 15118 xx=a:yy=b 

938@ LOCATE 2*x+8,2®y+4 15128 IF m(a,b)=1 THEN PRINT CHR$( 1 
9398 xx=x:yy=y 43) :G05UB 2981@ ELSE PRINT CHR$( 32) 
9a88 IF m{x,y)=1 THEN PRINT CHR$( 14 :G0SUB 28918 ’Punkt setzen/loesche 
3) :605UB 29818 n 
9A1B NEXT y,x 15138 NEXT :NEXT 
9428 x=1:y=1 ’Cursorposition: links 15148 RETURN 

oben 15158 
9438 GOSUB 7818 ’Cursorring setzen 160808 7ERHRERERRIRISSISRIEISIRERIESESESSIEST NEN 
9448 RETURN 16981 "Free x-Spiegeln HERRERUEN 
18909 "Hr RRRRRSHHSRHRRRRHAIRIHIIIE N 16020 EEE IH 
18819 ’* Cursor in oberste Zeile * 16838 FOR a=1 TO 8 

18920 rn HHRHRRRRRRSR SE 16848 FOR b=1 TO 8 

18838 y=1:RETURAN 16858 dl a,b)=m( a,9-b) 

ı89AQ 16868 NEXT :NEXT 


118099 BR RHHHRRHAHHOHTSER HAT UHR AN 16978 FOR a=1 TO 8 
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16888 FOR b=1 TO 8 

16898 m(a,b)=d(a,b) 

16188 LOCATE 2*%a+8,2%#*b+4 

16118 xx=a:yy=b 

16128 IF m(oa,b)=1 THEN PRINT CHR$( 1 
43) :G0SUB 29818 ELSE PRINT CHR$( 32) 


:605UB 28818 "Punkt setzen/loeschen 
161308 NEXT:NEXT 


16148 RETURN 

16150 ’ 

17800 rRHHRRHRREHRRHRRRRRRRHEIREIEN 
17819 ’##### Punkt-Spiegeln #i####4# 
17020 "RR BRRREHHRRHRRRHRRRHRRFRFTE 
17838 FOR a=1 TO 8 

17848 FOR b=1 TO 8 

17858 dla,b)=m( 9-a,9-b) 

17869 NEXT:NEXT 

17978 FOR a=1 TO 8 

17888 FOR b=1 TO 8 

17898 m(a,b)=d(a,b) 

171908 1.OCATE 2*a+8,2*b+4 

17110 xx=a:yy=b 

17128 IF mla,b)=1 THEN PRINT CHR$C 1 
43) :GOSUB 29M18 EI.SE PRINT CHRA$C 32) 
:G0OSUR 28818 "Punkt setzen/loeschen 
17138 NEXT :NEXT 

17148 RETURN 

17158 
188900 HH HRRRHRRRRREHHR RE 
18HIO Hunaneeıe Erase #Hitieacen 
18020 rm RR EHE HI 
18838 PEN #1,2 

18848 PRINT#1,CHR$CY);" 
eschen ( j/n)? ";CHRA$( 143) 
18858 x$=INKEY$:x$=LOWER$( x$) 


Zeichen lo 


18868 IF x$<>"j” AND x$<>"n" THEN 1 
an58 
18878 IF x$="n" THEN ECLS #1:PEN 1:A 


ETURN 

18888 GOSUB 6818 ’ring loeschen 
18898 FOR a=1 TO 8:FOR b=1 TO B 
18198 LOCATE 2#a+8,2*b+4 

I8B11D xx=a:yy=b 

18128 PRINT CHRA$( 32) :GOSUB 289190: ml 
a,b)=® "Punkt loeschen 

18138 NFXT:NEXT 

181AM x=1:y=1 

18158 GOSUB 7818 ’ring setzen 
18169 Ci.5S#1:PEN 1:RETURN 

18179 

19909 "rk er 
19919 ’**% Zeichen invertieren *#* 
19920 Pr RRRRBOSHRRRHRSHIEHIIIH IR 
19838 PEN 1 

19848 FOR a=1 10 8 

19858 FÜR b=1 TO 8 

19869 m( a,b) =1-m( a,b) 

19878 LOCATE 2*a+B,2#b+4 

19888 xx=a:yy=b 

19898 IF m(a,b)=1 THEN PRINT CHR$L 1 


43) :G0OSUB 29818 ELSE PRINT CHR$( 32) 
:GOSUB 28918 ’Punkt setzen/loeschen 
19188 NEXT:NEXT 

19118 RETURN 

19129 * 
el -T.T.T. kA 2.2 5 2.2.2.2 .2.2.2.272:2 2.22.2222 7202 220222 
28819 "######%# Verschieben #FH####=# 
PY:T. PT ad... 25 52.2.2222. 022 22 2°2.2.2.2 22.22.2202 
28038 PEN #1,2 

280848 PRINT#1," Verschieben (";CHR$ 
(242) ;CHA$( 249) ;CHRA$( 241) ;CHRA$L 243) 
;”")? ";CHA$L 143) 

28958 x$=INKEY$:IF x$="" THEN 28958 
2U0868 IF ASCLx$)<>2AB AND ASC(x$) <> 
2A1 AND ASC{Ex$)<>242 AND ASC(x$) <>? 
43 AND ASU(Lx$) <>13 THEN 28050 

2R07M IF ASCCx$)=>248 THEN GOSUB 681 
8:GOSUB 218198:G0SUB 781R ’versch na 
ch oben 

20088 IF ASC(x$) 241 THEN GÜSUB 681 
8:GOSUB 228198:G0SUB 781A "versch na 
ch unten 

29899 IF ASCLx$)=2A42 THEN GOSUB 6891 
8:G0SU8 239018:G0SUB 7818 "versch na 
ch links 

2W188 IF ASC(x$)=243 THEN GOSUB 681 
8:G0OSUN 24918:CG0SUB 7819 "versch na 
ch rechts 

2ePI11B CLSAI 

29128 PEN 1 

28138 RETURN 

2g1AaQ 
219000 rer HRRHRRHHREIRIRIHIOISI SE 
21818 ’** Verschieben nach oben ### 
2410279 "er HRHRRRRHERSHRRRISEIESRSESEAFGGE 
21838 PEN 1 

21848 FOR b=1 T0 7 

2190858 FOR a=1 TO 8 

21868 m(a,b)=m(a,b+1) 

21878 LÜCATE 2*#3+8,2%#b+4 

21888 xx=a:yy=b 

21898 IF m(la,b}=1 THEN PAINT CHRA$ 1 
43) :5G05UB 29010 ELSE PRINT CHR$L 32) 
:G05UB 28910 "Punkt setzen/loeschen 
211@M NEXT:NEXT 

21118 FOR a=1 TO 8 

21128 m(a,8)=® 

21138 LOCATE 2#a+8,2*b+4 

21148 xx=-a:yy=b 

21158 PRINT CHRA$( 32) :G0SUB 28918 
"Punkt loeschen 

21168 NEXT 

211740 RETURN 

21189 

22900 Hr HRRBHHISHRIRIRRHEIE 
22818 ’** Verschieben nach unten *#* 
22928 "RR HRRRRRHRRRRHRRRREIRIINIEN 
220838 PEN 1 

22848 FOR b=8B TO 2 STEP -1 

220858 FOR a=1 TO 8 
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2280868 mla,b)=m(a,b-1) 

229078 LOCATE 2#a+8,2#b+4 

228080 xx=a:yy=b 

22898 IF m(la,b)=1 THEN PRINT CHRA${ 1 
43) :G0OSUB 2981% ELSE PRINT CHRA$( 3?) 
:6505UB 25818 "Punkt setzen/loeschen 
221900 NEXT:NEXT 

2110 FOR a=1 TO 8 

22128 mla,1)=-9 

22138 LOCAIE 2*a+B,?*b+4 

22148 xx=a: =1 

22158 PRINT CHR$( 32) :GOSUB 289019 ’P 
unkt loeschen 

72168 NEXT 

22178 RETURN 

22188 ” 
23008 "rsrrtststsr tat stshsslltt 


23818 ’*%*Verschieben nach rechts #* 
230279 MRRHRRRRRRRNHHHRRRAREIREEIHERENNE 
23838 PEN 1 

23848 FOR a=1 TO 7? 

23858 FOR b=1 TO 8 

23068 m(a,b)=m(a+1,b) 

23078 LOCATE 2#a+8,2*b+4 

23888 xx=a:yy=b 

23898 IF m(a,b)=1 THEN PRINT CHRA$I 1 
43) :G0OSUB 79819 ELSE PRINT CHR$C 32) 
:GOSUB 28918 ’Punkt set/res 

23180 NEXT:NEXT 

e3110 FOR b=1 TO 8 

231?9 m(B,b)=® 

23138 LOCATE 2#a+B,2#b+4 

23140 xx=B:yy=b 

23158 PRINT CHA$( 32) :GOSUB 28818 ’P 
unkt loeschen 

23168 NEXT 

23178 RETURN 

23180 

DABOH THREE 
24819 ’** Verschieben nach links *#* 
2ay29 Vers 
249038 PEN 1 

24948 FOR a=-8 TO 2 STEP -1 

24058 FOR b=1 TO 8 

24866 m(a,b)=m(a-1,b) 

24978 LOCATE 2#a+B,2#b+4 

24888 xx=a:yy=b 

24898 IF m(a,b)=1 THEN PRINT CHRA$t 1 
43) :G0S5UB 29819 ELSE PRINT CHRA$( 32) 
:G60SUB 28018 ’punkt set/res 

24188 NEXT:NEXT 

24118 FOR b=1 TO 8 

24128 m( 1,b)=8 

24138 LOCATE 2*#a+8,2#b+4 

24148 xx=1:yy=b 

24158 PRINT CHR$( 32) :G0OSUB 28819 ’P 
unkt reset 

24169 NEXT 

24178 RETURN 

24180 ° 


RRRRRRHHRHRHRHHHHHRREITI NEN 
25919 "sressett Beenden ##tstsrter 
D5H2O HUREN HEHE 
25838 PEN #1,2 

25848 PRINT#1,CHR$(7);" Programm be 
enden( j/n) ? ”"+CHRA$( 143) 

25058 x$=INKEY$:IF LOWERS( x$) <>" j” 
AND LOWER${ x$) <>”n" THEN 25858 
-596R IF LOWER$EXx$)="n" THEN CLS#1I: 
PEN 1:RETURAN 

25878 IF LOWER$CEX$)="j" THEN IF fla 
g THEN CLOSEOUT:CLS:END ELSE CLS:EN 
D 

25080 ° 

2600 RHEIN EHE 
26919 ’##itt UJJebernehmen FiHitiHH4 
26020 HR OHRHRHEIAREIHESHHESIENN 
260838 PEN#1,2 

26948 INPUT#1,”" Uebernehmen> ASCII- 
Nummer: "”,z 

26858 PEN 1 

26868 IF z=8 THEN CLS#1:PEN 1:RETUR 
N 

26978 IF z<32 OR z>255 THEN PRINT C 
HA$( 7) :CLS#1:G0UT0O 26830 

26B88BNM PEN 2 

26890 LOCATE 4,12:PRINT CHR$( 2z) 
26188 PEN 1 

26118 FOR a=1 TO 8 

26128 FOR b=-1 TO 8 

26130 m( a,b) =IEST( 46+2*a, 224-2*b) /2 
26140 LOCATE 2*3+8,2*b+4 

26158 IF mla,b)<>8 THEN PRINT CHR$( 
143) ELSE PRINT CHRA$( 32) 

26160 NEXT 

26170 NEXT 

6189 CI 541 

26198 RETURN 

62088 ’ 

279909 HR RRRRRRRRHRHRRRI II 
27818 ”* Kontrollzeichenumrahmung *# 
27029 HR RRRRHHOHOHRHRHRRHESHERIN NE 
27838 GRAPHICS PEN 3 

27848 MOVE 38, 198:DRAW 72, 198:DRAW 
72,232:DRAW 38,232:DRAW 38, 198 
27858 RETURN 

2708680 

28008 "RR BERHRRRHRHREIHHIRFIER IE 
28819 ’##### Punkt loeschen ####&%* 
DHO2O "HERREN SEHIE N 
280838 PLOT xx#2+46,224-yy*#2,8 

28848 RETURN 

280508 

29908 er RHRRHRHHHHRARHHR 
29819 ’###&8# Punkt setzen #FH##r##% 
29929 "rer HRRRHHHRHSIHRIHRIHIETE SEHE 
29838 PLOT xx#2+46,224-yy#2,2 

29848 RETURN 

29950 ” 

IAAAA FREENET UEHUENLIEL 


25888 
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38818 ’*#* Zeichennummerfehler *###*# 
30020 THRRRRHRRRRHRHRRIRRISIHIRIRESEIENEN 


38839 CLS 
38848 LOCATE 
38858 PRINT” 


5,6 
Nur Zeichen mit den Nu 


mmern” 

308968 LOCATE 5,8 

38878 PRINT” 32-255 koennen umdefin 
iert"” 

38888 1.OCATE 5,18 

38898 PRINT” werden." 

38188 FOR zaehl=1 TO 3888:NEXT 
38118 RETURN 

3Bı12M 

31000 RR RRRRRHRERRHRRRRREET NEN 
31910 "sreeneene Help Frreseneenee 
31070 "HR HRRRRRRRSRRRRRSRHHRISHHFIRE 
31838 MODE 2:CLS:PEN 1 

31948 CALL &BBIC 

31858 LOCATE 38, 1:PAINT "” Help 
31968 TALL. EBBIC 

31078 WINDOW#8,1,88,3,25 

31888 PRINT 

31898 PRINT” Der Editor kennt folge 


nde Kommandos:"” 

31188 PRINT :PRINT 

31118 PRINT TAB(5) CHA$( 248) ;"/";CH 
A$( 241) ;"/”;CHR$L 242) ;"/";CHA$L 243) 
E Ense ka 

31128 PAINT” Cursor (kleines Quadr 
at)” 

31138 PRINT TAB( 38) "nach oben/unten 


/links/rechts" 

31148 PRINT 

31158 PRINT” <Return> er 
Pixel invertieren"” 

31169 PRINT 

31178 PRINT” L ee 
Pixel loeschen” 

31189 PRINT 

31198 PRINT” 5 ee 
Pixel setzen” 

31208 PRINT 

31218 PRINT” Ctrl.+";CHA$(248) ;” 


/";CHR$C 241) ;"/" ;CHR$C2A2) ;"/";CHR$ 
(243) ;” Cursor an die ae 
ussere Position” 

31229 PRINT 

31238 PRINT” Shift+";CHR$( 248) ;" 
/” ;CHRA$( 241) ;"/” ;CHA$C 242) ;"”/";CHR$ 
(243) ;"” Zeichen verschie 
ben” 

31248 PRINT 

31258 PRINT” V+";CHA$( 248) ;"/";C 
HA$( 241) ;"/";CHA$L 242) ;”/”;CHA$L 243 
y+" Zeichen verschie 
ben" 

31268 PRINT:PRINT 

31278 PRINT” Weiter durch Tastendru 


ck> ";CHA$( 143) 
31288 CALL &BBB6 

warten 

31298 PRINT 
31388 PRINT 
31318 PRINT 
31328 PRINT" X .... Spiegeln an 
der waagerechten Mittelachse" 
31338 PRINT 

31348 PRINT" Y Spiegeln an 
der senkrechten Mittelachse"” 

31358 PRINT 


’Auf Tastendruck 


3136@ PRINT" P .... Spiegeln am 
Mittelpunkt” 

31378 PRINT 

31388 PRINT" D .... Drehen um 9 


8‘ (gegen Uhrzeigersinn)” 

31398 PRINT 

31488 PRINT” uU Uebernehmen 
eines Zeichens aus dem Zeichensatz 


in die Editormatrix” 
31419 PRINT 
31428 PRINT” I .... Invertieren 


des Zeichens" 
31438 PRINT" (Gesetzter 
Punkt wird geloescht und umgekehrt) 


3134498 PRINT 

31458 PRINT” E .... Loeschen de 
s aktuellen Zeichens” 

31468 PRINT 

31478 PRINT" @ .... Editor verl 
assen (ins Untermenue) ” 

31488 PRINT:PAINT:PRINT 

31498 PRINT” Weiter durch Tastend 
ruck> ";CHA$( 143) 

31598 PRINT 

31518 CALL &BB96 ’Tastendruck abwa 
rten 

31528 PRINT :PRINT:PRINT 

31538 PRINT" B .... Beenden de 


r Arbeit” 
31548 PRINT 


31558 PRINT” (Bei Erste 
lien eines Zeichensatzes muss die A 
rbeit” 

31568 PRINT” mit <B> a 
bgeschlossen werden, da sonst die D 


atei” 

31578 PRINT” 

chlossen wird!!!)" 
31588 PRINT :PRINT:PRINT 
31598 PRINT” Zurueck ins Hauptmenue 
> ";CHRA$( 143) 
31698 CALL &BBB6 
rten 

31618 RETURN 


>38 DICK? 3% 
SER NOLTE, 
DES 


nicht ges 


"Tastendruck abwa 
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KREUZ- 
WORTRÄTSEL 


Mit dem Programm „Kreuzworträtsel“ können Sie 
eigene Rätsel entwerfen oder vorhandene bis maximal 
32*19 Kästchen aus Zeitschriften abschreiben. 


RÄTSEL ERSTELLEN 


Geben Sie nach dem Anwählen dieses Menüpunktes 
die gewünschte Breite und Höhe des Rätselgitters ein 
und drücken Sie >ENTER<. Mit den Cursortasten 
steuern Sie den blinkenden Cursor. Um ein schwarzes 
Kästchen zu setzen, müssen Sie an der gewünschten 
Stelle >Copy< drücken. Dann fahren Sie mit dem 
Cursor an die Stelle, wo die Antwort beginnen soll und 
drücken nochmals >Copy<. Geben Sie nun die Ant- 
wort ein, dann >Enter<. Soll die Antwort senkrecht 
stehen, so betätigen Sie die Taste >S<, für waagerecht 
e Länge der Antwort un 


: 


worin 


der Frage dürfen jeweils 28 Buchstaben nicht über- 
schreiten. 

Haben Sie einmal eine längere Frage, so müssen Sie die- 
se in einer noch verständlichen Weise abkürzen. Soll 
ein Kästchen doppelt belegt werden, so fahren Sie mit 
dem Cursor nochmals dorthin und drücken nochmals 
>Copy<. Es erscheint dann ein Schrägstrich, der die 
Doppelbelegung symbolisiert. Jedes Kästchen kann 
nur zweimal belegt werden. 

Ist Ihr Rätsel fertiggestellt, so können Sie die Eingabe 
mit >Enter< beenden. Nun sollten Sie Ihr Rätsel erst 
abspeichern, bevor Sie an das Raten gehen. 


WORT LÖSCHEN 


Dieses Unterprogramm kann nur bei ‚Rätsel erstel- 
len‘ und ‚‚Rätsel bearbeiten‘ aufgerufen werden. 
Möchten Sie ein Wort löschen, so fahren Sie mit dem 
Cursor auf das dazugehörige schwarze Kästchen und 
drücken >DEL<. 

Ist das Kästchen doppelt belegt (Schrägstrich), so 
werden Ihnen die dazu gehörigen Antworten ange- 
zeigt und Sie können durch Drücken der Taste >1< 
oder >2< das jeweilige Wort löschen oder auch mit 
>Enter< aussteigen. Bei einer Einzelbelegung wird 
das Wort ohne Abfrage gelöscht. Nach jedem Lösch- 
vorgang wird das Rätsel aktualisiert und Sie müssen 
einen Moment warten. 


RÄTSEL RATEN 


Falls sich ein Rätsel im Speicher befindet, werden Sie 
gefragt, ob Sie dieses raten wollen oder ein neues la- 


d 


den möchten. Beantworten Sie dann die Frage 
“Meldung falsches Wort <e>in oder <a>us?“ Möchten 
Sie, daß Ihre Antwort mit der des Rätsels verglichen 
werden soll und eine Meldung bei falscher Eingabe er- 
scheint, so drücken Sie >e<. Falls Sie es aber darauf 
ankommen lassen wollen, eine falsche Antwort einzu- 
geben, so drücken Sie >a<. Die Meldungen “Das Wort 
ist zu lang“ oder “Das Wort ist zu kurz“ erscheinen 
bei beiden Möglichkeiten. Haben Sie sich für >a< 
entschieden und eine falsche Antwort eingegeben, so 
wird diese in den darauffolgenden Durchgängen solan- 
ge abgefragt, bis sie richtig ist. Wissen Sie die Antwort 
nicht, so gehen Sie mit >Enter< einfach weiter. 

Die ausgelassenen Fragen werden später nochmals 
gestellt. 

Bitte, geben Sie als Antwort immer das ganze Wort 
ein, also auch, wenn schon ein oder mehrere Buch- 
staben vorhanden sind. Das Raten können Sie durch 
Drücken der kleinen Enter-Taste beenden. 


RÄTSEL BEARBEITEN 


yEk: 


& 


Katalog ausgegeben. Beim Tape-Betrieb wird gleich der 
Name abgefragt. Verfahren Sie sonst wie beim Punkt 
„Rätsel erstellen“. 


RÄTSEL SPEICHERN 


Geben Sie den Namen ein und das Rätsel wird abge- 
speichert. Drücken Sie jedoch nur die Enter-Taste, so 
wird das Rätsel mit dem Namen „Rate“ und einer 
fortlaufenden Nummer gespeichert. Durch die kleine 
Enter-Taste kommen Sie zurück ins Menü. Beim Kas- 
settenbetrieb wird noch die gewünschte Baudrate ab- 
gefragt und eingestellt. 


RÄTSEL LÖSCHEN 


Sie können hiermit File’s auf der Diskette löschen. Da- 
zu müssen Sie den vollen Namen mit Ext. eingeben. 
en Sie nur Enter, erfolgt die Rückkehr ins 

enü. 


CATALOG 


Diese Routine läuft sowohl im Disketten- als auch im 
Kassettenbetrieb. 


DRUCKER-MENÜ 


Die Hardcopy-Routine ist für den GP-500 CPC ausge- 
legt. Sie können jederzeit aber Ihre eigene Hardcopy- 
routine ab &A000 einpoken oder das Programm ent- 
sprechend anpassen. 

Schneider aktiv wünscht Ihnen viel Spaß beim Rätseln. 
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199 TRRRRRRRRREHERE SERIE EISEN 
128 ’* KREUZWORTRAETSEL #* 
125 ’* VON * 
140 '* UDO ZIESE * 
145 '# FUER #* 
168 ’* SCHNEIDER AKTIV * 
188 ’* CPC 464/664/6128 JE* 
299 FRRRRRBHRRSERIERREISHIESESETEISE TESTEN I SE I E N 
218 ” 

228 MODE 1:INK ®,14:INK 1,26:INK 2, 


26:INK: 3,8:BORDER 14:5YMBOL 244,255 
‚253,251,247,239,223,191,255 
238 DEFINT a-z:DIM t$( 251) ,t1$( 251) 
‚t(251),t1(251) ,t2(251) ,t3(251) ,t4( 
251) :tran$=CHR$( 23) +CHR$( 1) :trans$= 
CHA$(C 23) +CHA$CB) :rat=8 
2am IF PEEK(E9FF6)<>33 THEN GOSUB 4 
309:baud=1598 ELSE 328 
258 ILOCATE 8, 12:PRINT”(";:PEN 3:PRI 
NT”"D";:PEN 1:PRINT")isk oder ("”;:PE 
N 3:PRINT"T";:PEN 1:PRINT”)ape-Betr 
ieb"” 
268 IF INKEY(61)=-8 THEN |IDISC:a$="D 
ISK"”:POKE E9FFF,1:CLS#1:GOTO 288 
278 IF INKEY(51)=8 THEN | TAPE:a$="T 
APE"”:POKE E9FFF,2:CL5#1:G0T0 298 EL 
SE GOTO 268 
288 CLS:PEN 1:L.0CATE 3,11:PRINT"Sch 
utz gegen Speicher-Reorganisation”: 
LOCATE 4,13:PAINT"Bitte legen Sie e 
ine ";:PEN 3:PRINT"Diskette ";:PEN 
1:PRINT"ein.":LOCATE 12,24:PARINT CH 
A$L24)” Taste druecken "CHRA$( 24) :CA 
LL &E8B83:CALL &BB18 
298 OPENOUT"DUMMY" 
388 MEMORY HIMEM-1 
318 CLOSEOUT 
328 CLS:GOTO 4288 
330 
348 
358 ’ 
368 CLS#1:5S0OUND 1,88,7,5,3,1:LOCATE 
#1,5,1:PRINT#1,"Raetselgitter (max. 
32,19)":CALL &B8B83:LOCATE#1,5,2:IN 
PUT#1,"breite,hoehe: ",breit,hoch 
378 IF breit>32 OR hoch>19 THEN 368 
388 TF m=®8 THEN f=1 ELSE f=3 
398 br=( 18*breit) :ho=( 18*hoch) :n1=3 
18-(br/2) :n2=216-(ho/2) :ho=n2+{( 18*®h 
och) :br=n1i+( 18*breit) 
488 FOR y=n2 TO ho STEP 18:MOVE ni, 
y:DRAAW br,y,f:NEXT:FOR n=n1 TO br S 
TEP 18:MOVE n,ho:DRAW n,n2:NEXT:MOV 
E n1-2,ho+2:DRAW hr+2,ho+2:DRAW br+ 
2,n2-2:DRAW n1-2,n2-2:DRAW n1-2,ho: 
C1.5S#1:RETURN 


BERN EERAE 


Aasetselgitter 


a1 

428 ’° ### Raetsel erstellen *### 
438 

448 IF z>2 THEN FOR z=1 TO z:t$(z)= 


"".NEXT 

458 CLS#1:CL5#2:6G05UB 368:seit$="* 

erstellen #*":G0OSUB 1398:nr=®:z=1:n= 
z:INK 2,98,26:SPEED INK 49,48 

468 x=n1+2:y=ho-2:x1=x:y1=y:G0OSUB 5 

68 

478 IF INKEY(8)=B®8 THEN GOSUB 578: y= 

y+18:G0SUB 548 

488 IF INKEY( 1)=8 THEN GOSUB 578:x= 
x+18:G0OSUB 548 

498 IF INKEY(79)=®8 THEN GOSUB 898 
588 IF INKEY( 18)=@® OR INKEY(6)=-@ TH 

EN INK 2,26:60T0 1388 

518 IF INKEY(2)=@® THEN GOSUB 578:y= 

y-18:G60SUB 544 

528 IF INKEY(9)=8 THEN GOSUB 588 

538 IF INKEY(8)=8® THEN GOSUB 578:x= 
x-18:G0OSUB 548:FOR pau=1 TO 389:NEX 

T:G0TO 478 ELSE FOR pau=1 TO 388:NE 
XT:GOTO 478 

548 IF x<n1+2 THEN x=ni1+2 ELSE IF x 
>br- 16 THEN x=br-16 

558 IF y<n2+16 THEN y=n2+16 ELSE IF 
y>ho-2 THEN y=ho-2 

568 PLOT-2,48,2:PRINT tran$; :TAG:MO 
VE x,y:PRINT CHA$( 233) ; :TAGOFF :PRIN 
T trans$; :x1=x:y1=y:RETURAN 

578 PLOT-2,49,2:PRINT tran$; :TAG:MO 

VE x1,y1:PRINT CHRA$( 233) ; :TAGOFF :PR 
INT trans$; :RETURN 

5Bn GOSUB 568 

598 IF TESTLEx+18,y-4)=1 AND nr=® OR 
TEST(x+4,y)=1 AND nr=8 THEN GOSUB 
1269:G05UB 568 :RETURN 

68M IF TEST(x,y)=3 AND nr=1 THEN GO 

SUB 12698:60SUB 568 :RETURN 

618 IF nr=1 THEN GOSUB 568:G0T0 658 
620 IF TESTLx+?,y)=3 AND TEST(x+B,y 
-6)=® THEN GOSUB 1268:G05SUB 569: RET 

URN 

6390 IF TESTEx,y)=3 THEN b$=CHA$( 244 
):nr=1 ELSE b$=CHA$( 143) :nr=i 

64M z=z+1:SOUND 1,88,7,5,3,1:TAG:PL 
OT 8,49,3:MOVE x,y:PRINT b$; : TAGOFF 
:t2(z)=x:t3(02)=y:FOR pau=1 TO 288:N 
EXT:GOSUB 568:RETURN 

659 CLSA1:CALL &BB83:LOCATE#1,2,1:I 
NPUT#1,"Antwort:"”,t$( z) :t$( z) =UPPER 
$Ct$CZ)):IF t$lz)="" THEN 658 

668 IF LEN(t$(Z))>28 THEN CLS#1:50U 

ND 1,289,7,5,3,1:LOCATE#1,8,1:PRINT 
#1,"Das Wort ist zu lang”:FOR pau=1 
TNn I58A:NEXT:GOTO 658 

679 tl z)=x:tilz)=y 

688 CLS#1:LOCATE#1,4,1:PRINT#1,"(5) 
enkrecht oder (W)aagerecht ?" 

698 IF INKEY(6®)=®8 THEN tA(z)=2:CL5 
#1:G0TO 898 

788 IF INKEY(59)=8 THEN t4(z)=1:CLS 
#1 ELSE GOTO 698 
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718 1=LEN(t$(z)) 

7290 IF x+( 18#1)>br+2 THEN 1238 

738 IF y<ho-1B THEN GOSUB 5708:x2=x: 
y2ry:y=y+18B:x1=x:y1=y:G60SUB 569:60T 


0 758 

749 IF y=ho-2 THEN GOSUB 578:x2=x:y 

P=ey:y=y-18:x1=x:y1=y:GOSUB 568 

758 t( z)=x2:t1(z)=y2:PLOT 2,48,1:TA 

G:FOR za=1 T0 1 

768 MOVE x2,y2:PRINT MID$(t$(z),za, 
1); :x2=x2+18:NEXT: TAGOFF 

778 CLS#1:CALL &BB83:1INPUTF1,"Frage 
: ",t1$(z):IF t1$lz)="" THEN 778 

788 IF LENLt1$(zZ))>28 THEN SOUND 1, 

2008,7,5,3,1:CL5#1:L0OCATE#1,8, 1:PRIN 
T41,"Die Frage ist zu lang":FOR pau 

=1 TO 15989:NEXT:CLS#1:G0OTO 778 

798 FOR pau=1 TO 288:NEXT:CLS#1:nr= 

N: RETURN 

8RB 1=LEN(t$(zZ)) 

B1M IF y-( 18*1)+18<n2+16 THEN 1230 

828 IF x<br-16 THEN GOSUB 578:x2=x: 
y2ryıx=x+1B:x1=x:y1il=y:GOSUB 569:G0T 

0 848 

838 IF x=br-16 THEN GOSUB 578:x2=x: 
y2=y:x=x-18:x1=x:y1=y:GOSUB 56® 

848 tl z)=x2:t1(z2)=y2:PLOT 2,498,1:TA 
G:FOR za=1 TO 1 

858 MOVE x2,y2:PAINT MID$Lt$(2),za, 
1); :y2=y2-18:NEXT:TAGOFF:GUOTO 778 
8658 ° 
878 
888 

898 GOSUB 568:IF TEST(x,y)=3 THEN 9 
08 ELSE SOUND 1,289,7,5,3,1:LOCATE# 
1,11,1:PRINT41,"Falsche Position":F 
ON pau=1 TO 1509:NEXT:GOSUB 568:CLS 

#41: RETURN 

998 CLS#1:LOCATEF1,18,1:PARINT#1,">> 
Wort loeschen <<":LOCATE#1,14,2:PR 
INT#1,”---- j/n ---"” 

918 IF INKEY(46)=8 THEN CLS#1:G60SUB 
56%: RETUAN 

928 IF INKEY(45)=@8 THEN 938 ELSE 91 
] 

938 IF nr=1 THEN CLS#1:50UND 1,288, 
7,5,3, 1:LOCATE#1,13,1:PARINT#1,"Nich 
t erlaubt":FOR pau=1 TO 1588:NEXT:G 
0SUB S69:CLS#1:RETURAN ELSE LOCATE#FI 
‚14,2:PRINT#1,” » 

948 IF TEST(x+8,y-6)=3 THEN i=2:G0T 
0 958 EI.SE i=-2:G0TO 978 

958 IF x=t2(i) AND y=t3(i) AND t4li 
)=1 THEN 1868 

968 IF x=t2(i) AND y=t3(i) AND tAli 
)=2 THEN 1118 ELSE i=-i+1:60T0 958 
978 IF x=t2(i) AND y=t3(i) THEN CLS 
#1:PRINT#1,"” -1- "t$(i):loe=i:i=-i+i 
ELSE i-i+1:6C0T0O 978 

988 IF x=t2(i) AND y=t3(i) THEN PRI 


#22e## Wort loeschen ##### 


NT#1,"” -2- "t$li) ELSE i=-it1:G0T0O 9 

88 

998 IF INKEY(64)=8 OR INKEY( 13)=-8 T 

HEN i=10oe:G0TO 1858 

1888 IF INKEY(64)=8 OR INKEY( 13) =® 

i=loe:G0TO 1458 

IF INKEY(65)=-8 OR INKEY( 14)=® 
19858 

IF INKEY(65)=-@8 OR INKEY( 14)=® 
1858 

; IF INKEY( 18)=8 THEN CLS#1:G0SU 
B 568:RETURN 

1849 GOTO 998 

1858 IF t4(i)=1 THEN 1868 ELSE 1110 
19868 GOSUB 1228 

1878 i2=t(i) :i3=LEN(t$Li)):i1=® 
1888 i1=-11+1 

1898 IF i1>i13 THEN 1168 

1188 TAG:MOVE i2,t1(i):PRINT” ";:TA 
GOFF:i2=12+18:60T0 19888 

1118 GOSUB 1228 

1128 i2=t1(i) :i3=LENt$(i)) :i1=0 
1138 i1=-i1+19 

1148 IF i1>i3 THEN 1168 

1158 TAG:MOVE t(i),i2:PRINT"” ";:TAG 
OFF:i2=1i2-18:G0T0 1138 

1168 CLS#1:L.0CATE#1,7,1:PRINT#1,"Ra 
etsel wird aktualisiert” 

1178 FOR 3j=i TO z:t$( J)=t$( j+1):tı$ 
LII-LIKCIFI) :EOZI=El IHN) :tICJ)=tIC5 
+1) :t20 5) =t20 j+1) :£30 3) =t30j+1) :tAl 
3) =tAl j+1) :NEXT:z=2Z-1:i=2:PLOT 2,48 
‚1:TAG 

1188 IF z<28 THEN FOR pau=1 TO 15988 
:NE.XTI 

1198 IF i>z THEN TAGOFF:CLS#1:60SUB 
568: RETURN 

1288 IF t4(i)=1 THEN i2=t(i):FOR na 
=1 TO LEN(t$Ci)):MOVE i2,t1(i) :PARIN 
T UPPER$CMID$CLE$CIi),na,1)) ; :i2=i2+1 
8:NEXT:i=i+1:60T0 1198 

1218 IF tA(li)=2 THEN i2=t1(i):FOR n 

a=1 TO LENCH$LIi)) :MOVE t(i),i2:PRIN 

T UPPER$CMWID$CE$CIi) ,na,1)) ; :i2=-i2-1 

8:NEXT:i=i+1:G60T0 1198 

1228 IF TESTLt2(i)+2,t3(i1))=3 AND T 

ESTLt2Ci)+8,t3(i)-6)=>8 THEN PLOT ®, 

48,3:TAG:MOVE t2(i),t3(i) :PRINT CHA 

$( 143) ; :TAGOFF :RETURN ELSE PLOT 8,4 

08,3:TAG:MOVE t2(i),t3(i) :PAINT" ";: 
TAGOFF : RETURN 

1238 SOUND 1,288,7,5,3,1:CL5#1:L0CA 
TE#1,8,1:PRINT#1,"Wort nicht erlaub 

t !!t":FOR pau=1 TO 1589:NEXT:CLSA1 
1248 IF t2(z)=t2(z-1) AND t3(2)>=t3( 

z-1) THEN PLOT 8,480,3:TAG:MOVE t2(z 

J,t3(z) :PRINT CHA$( 143) ; :TAGOFF :x=t 

(z) :y=t1i(z) :z=z-1:nr=®:RETURN 

1258 TAG:MOVE t2(z),t3(z) :PRINT"” "; 
: TAGOFF :x=t( z) :y=t1(z) :z=z-1:nr=8:R 
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a ms, ee Tee en ee zz a seueena 


LISTING 


ETURAN 

1268 SOUND 1,289,7,5,3,1:CLS#1:LOCA 
TE#1,6,1:PRINT#1,"Position nicht er 
laubt !!!”":FOR pau=1 TO 1588:NEXT:C 
1.S#1: RETURN 

1278 


1288 ° #*# Aaetselgitter loeschen #*# 
1298 
1388 SOUND 1,88,7,5,3,1:CL54#41:LOCAT 


E#1,6,1:PRINT#1,"Raetsel fertig ??? 
( 3/n)" 

13378 IF INKEY(45)=-®8 AND m=1 THEN CL 

S#1:vorsicht=1:mm=m:m=-18:G0OSUB 1398 
:m=mm:GOTO 1348 

ı132a IF INKEY(45)=@ AND m<>1 THEN C 

L.S#A1:mm=m:m=18:G0OSUB 1398 :m=mm:GOTO 
1348 

1338 IF INKEY(46)=-8 THEN CLS#1:INK 

2,08,26:G0T0 A478 ELSE GOTO 1318 

1348 LOCATE#1,19,1:PRINT#1,”>> Bitt 

e warten <<":br=br+26:n1=n1-24:ho=h 

o+2:n2=n2-2 

1358 ni=n1+2:br=br-2:IF n1>148 THEN 
1388 

1368 MOVE n1,n2:DRAW n1,ho,8:MOVE b 

r,n2:DAAW br,ho:GOTO 1358 

1378 n1=n1+2:br=br-2:ho=ho-2:n2=n2+ 

2:IF n1>314 THEN FOR pau=1 TO 288:N 

EXT:GOTO 37708 

1388 MOVE n1,ho:DRAW br,ho,8:DRAW b 

r,n2:DRAW n1,n2:DRAW n1,ho:60T0 137 

7] 


1385 ° 

1386 ” ### GSeitenbezeichnung *#*## 
1387 

1398 1=LEN( seit$) :n4=n1-22:n5=212+{ 


( 16*1) /2) :n6=br+1® 

1488 IF m=18 THEN PLOT 8,8,8:G0T0 1 
4208 

1418 IF m=B THEN PLOT 2,48,1 ELSE P 
LOT 8,48,3 

1428 TAG:FOR n=1 TO 1:MOVE n4,n5:PR 
INT MID$( seit$,n, 1); :MOVE n6,n5S:PRI 
NT MID$( seit$,n, 1); :nS=n5 -16:NEXT:T 
AGOFF : RETURN 
1430 

13998 "aruns 

1458 

1468 IF t$(z)="" THEN GOSUB 2768:60 
TO 1518 

1478 CLSA1:LOCATE#1,5,1:PRINT#1,"Ne 
ues RAETSEL laden ? (j/n)"” 

1488 IF INKEY(45)=8 THEN GOSUB 2768 
:GOTO 1518 

1498 IF INKEY(46)=8 AND vorsicht=1 

THEN 2898 

1588 IF INKEY(46)=® AND vorsicht=® 

THEN CLS#2 ELSE 1488 

1518 GOSUB 388:seit$="* raten *":60 


Raetsel raten ##3## 


6 

1528 CLS#1:LOCATE#1,18,1:PRINT#1,"”A 
bbruch mit enter"”:LOCATE#1,22,2:PRI 
NT#1,"----- ":FOR pau=1 TO 3898:NEXT 
1538 CLS#1:LOCATE#1,7,1:PARINT#1,"”Me 
ldung- falsches Wort ?":LOCATE#1,12 
‚2:PRINT#1,"(e)in / (a)us" 

1548 IF INKEY(58)=@ THEN help=8:GOT 
0 1568 

1558 IF INKEY(69)=@ THEN help=1 ELS 
E GOTO 1548 

1568 i=1:start-1 

1578 i=i+1 

1588 IF t$(i)="" AND i>z AND an=® T 
HEN 2168 

1598 IF t$(i)="" AND i>z AND an=1 T 
HEN CLS#1:start=start+1:start$=STR$ 
(start) +"ter Rate-Versuch" :LOCATEAFI 
‚8,1:PAINT#1,start$;:FOR pau=1 TO 3 
SBOM:NFXT:i=1:an=98:G0TO 1578 

ı16aM IF t$( i)="" THEN 1578 

161@ GOTO 2218 

1628 IF t4(i)=1 THEN GOSUB 2188:G0T 
0 1648 

1638 IF t4(i)=2 THEN GOSUB 2138 
1648 CLS#1:PRINT#1,"Frage: ";t1$(i) 
:CALL. &B883: INPUT#1,"Antw.: ",ant$ 
1658 IF INKEY(6)=-® THEN CLS#1:m=10: 
GOSUB 13998:G0T0O 1348 

1668 IF ant$="" AND t4[i)=1 THEN GO 
SUB 2188:an=1:G0TO 1578 ELSE IF ant 
$="" AND t4(i)=2 THEN GOSUB 2138:an 
=1:6010 1578 


1678 IF t4[(i)=2 THEN 1738 

1688 IF LEN(ant$)<LEN(t$(i)) THEN 2 
068 

1698 IF LEN(ant$)>LEN(Lt$LIi)) THEN 2 
078 

1788 IF UPPER$(Cant$)<>t$[li) AND hel 


p=® THEN 2888 

1718 xm=t(i):TAG:FOR k=1 10 LEN(ant 
$) :mi$=UPPER$( MID$( ant$,k,1)) :PLOT 

2,48,1:MOVE xm,t1(i) :PRINT mi$; :po= 
ASC(mi$) -64:G05SUB 1789:PLOT xm+xt,t 
Ci) yt,2:xm=xm+18:NEXT: TAGOFF 

17298 IF UPPER$L ant$)=t$( i) THEN t$( 
i)-"":G0T0O 1578 ELSE an=1:G0T0 1578 
1738 IF LEN(Lant$)<LEN(t$(i)) THEN 2 
let) 

748 IF LEN(ant$)>LENLt$Li)) 
n78 

1758 IF UPPER$( ant$)<>t$(i) AND hel 
p=-® THEN 28808 

1769 ym=t1(i):TAG:FOR k=1 TO LEN(lan 
£$) :mi$=UPPER$CMID$( ant$,k,1)):PLOT 
2,48,1:MOVE t(i),ym:PRINT mi$; :po= 
ASC( mi$) -64:6G05UB 1788:PLOT t(i)+xt 
‚ym-yt,2:ym=ym-18:NEXT:TAGOFF 

1778 IF UPPER$( ant$) =t$( i) THEN t$( 


THEN 2 


j)="":60T0 1578 ELSE an=1:60T0 157039 
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SUB 1399:G60SUB 257@8:an=8:INK 2,26,2 


LISTING 


1788 ON po GOSUB 1808, 1818, 1828,183 
0, 1840, 1850, 1860, 1878, 1880, 1898, 198 
8,1919, 1928, 1930, 1948, 1958, 1968, 197 
9,1959, 1990,2000,2010,29020,2930, 294 
0,2858 

1798 RETURN 

1808 
1818 
1820 
1838 
1849 
1859 
1860 
1878 
1889 
1899 
1909 
1918 
1928 
1932 
1949 
1958 
1968 
1979 
1989 
1998 
20 
2m1Q 
>a>20 
2938 
2aAm 
2458 


xt=6:yt=Q: 
xt=8:yt=8@: 
xt=-@:yt=4: 
xt=2:yt=8:RETURN 

xt=8: yt=9®:RETURN 
xt=19:yt=8:RETURAN 
xt=2:yt=2:RETUAN 
xt=12:yt=9:RETURAN 

xt=6: yt=2:RETURN 
xt=8:yt=2:RETURN 
xt=4:yt=2:RETUAN 
xt=2:yt=4:RETURN 
xt=1@:yt=2:RETUAN 
xt=12:yt=2:RETURAN 
xt=#:yt=6:RETURAN 
xt=2:yt=6:RETURN 
xt=9:yt=8:RETURN 
xt=4:yt=4:RETURN 
xt=A4:yt=6:RETURN 
xt.=6:yt=6:RETURN 
xt=19:yt=4:RETURN 
xt=12:yt=4:RETURN 

xt=19:yt=6: RETURN 
xt=2:yt=B:RETURN 
xt=6:yt=8:RETURN 
xt=8:yt=6:RETURN 

SOUND 1,280,7,5,3,1:CLS#1:LOCA 


TE#1,8,1:PRINT#1,"Das Wort ist zu k 
urz":FOR pau=1 TO 158@:NEXT:GOTO 16 


RETURN 
RETURN 
RETURN 


SOUND 1,29808,7,5,3, 1:CL54#1:LOCA 
TE#1,8,1:PRINT#1,"Das Wort ist zu 1 
ang":FOR pau=1 TO 1588:NEXT:GOTO 16 


?888 SOUND 1,290,7,5,3, 1:CLS#1:LOCA 
TE#1,8,1:PAINT#1,"Das Wort ist fals 
eh":FOR pau=1 TO 1588:NEXT:GOTO 164 
a 

2898 CLS#2:CLS#1:SOUND 1,298,37,5,3 
‚1:LOCATE#1,13,1:PRINT#1, "VORSICHT 

t11":LOCATE#Z1,13,2:PRINT#1, "RAETSEL. 

speichern - sonst Loeschung.”; :FOR 

pau=1 TO 5888:NEXT:CLS#1:G0T0 3778 

2188 1=1LEN(t$(i)):xp=tli):yp=t1li): 
xb=xp+( 18#1)--18:yb=yp-14:PRINT tran 
$; 

2118 FOR tb>xp TO xb STEP 18 

2128 FOR tc=yp TO yb STEP-2:MOVE tb 
‚tce:DRAW tb+14,tc,2:NEXT tc,tb:PRIN 
T trans$; :RETUAN 

2138 1=LENLt$Li)) :xp=tli):yp=tili): 
yb=yp-( 18*1) +18:xb=xp+14:PRINT tran 
$; 

2148 FOR tb=yp TO yb STEP-18 


2158 FOR tc=xp TO xb STEP 2:MOVE te 
‚tb:DRAW tc,tb-14,2:NEXT tc,tb:PRIN 
T trans$; :RETURN 

2168 C1L.S#1:50UND 1,988,59,15,8,1:L0 
CATE#1,8,1:PRINT#1,"Sie haben es ge 
schafft”":FOR pau=1 TO 3888:NEXT:CAL 
i. EBB83:1.0CATE#1,12,2:PAINT#1,"Tast 
e druecken"”:CALL &BB18 

2178 ECLS#1:INK 2,26:m=190:G0SUB 1398 
:G0OTO 1348 


2180 

2198 ’*##* Wort vorhanden ? ##* 
2220 

2218 e=t(i):e1=-tili):e2=-LENLt$LI)): 


eA=0:sy$="" 

2228 IF TEST{e+4,e1)=@8 AND TEST(e+1 

8,e1-4A4)=® THEN 1628 

2238 IF t4li)=2 THEN 2278 

Bra IF e4-e? AND sy$rt$(li) THEN t$ 

(i)="":60T0 1578 

2258 IF e4=e2 AND sy$<>t$(i) THEN G 
0TO 1628 

2268 eA=e4+1:G05UB 2389:IF sy>® THE 
N sy$=sy$+CHRA$( sy) :e=e+18:G0TO 2248 
F1l.SE GOTO 1628 

2278 IF e4=e2 AND sy$=t$(i) THEN t$ 

(i)="":G60T0 1578 

2288 IF e4=e2 AND sy$<>t$(i) THEN G 
DOTO 1629 

2299 e4=e4+1:G0SUB 2388:IF sy>@ THE 
N sy$=sy$+CHR$( sy) :ei=e1-18:60T0 22 


7@ EI.SE GOTO 1628 

23089 IF TEST(e+6,e1)=2 THEN sy=65:R 
ETUAN 

2318 IF TEST(e,e1)=2 THEN sy=66:RET 
URN 

2328 IF TEST(e,e1-4)=2 THEN sy=67:R 
ETURN 

23380 IF TEST(e+2,e1)=2 THEN sy=68:R 
ETURN 

2348 IF TEST(e+8,e1)=2 THEN sy=69:R 
ETURN 

2358 IF TEST(e+18,e1)=2 THEN sy=78: 
RETURN 

2368 IF TEST(e+2,e1-2)=2 THEN sy=71 
:RETURN 

2378 IF TEST(e+12,e1)=2 THEN sy=72: 
RETURN 

2388 IF TEST(e+6,e1-2)=2 THEN sy=73 
:RETURN 

2398 IF TEST(e+8,e1-2)=2 THEN sy=74 
: RETURN 

2408 IF TEST(e+4,e1-2)=2 THEN sy=75 
:RETURN 

2418 IF TEST(e+2,e1-4)=2 THEN sy=76 
:RE.TURN 

2428 IF TEST(e+18,e1-2)=2 THEN sy=? 
7:RETURN 


2438 IF TEST(e+12,e1-2)=2 THEN sy=7 
8: RETURN 
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RO nn mnEEATE Eu ENDETE ETeL ET Teer Dam tn ae Gen GEH sen aan ne aan en ren ana ree one EEE En EEE SEES ET sn see nenne 


LISTING 


2448 IF TEST(e,e1-6)=2 THEN sy=79:A 
ETURN 

2458 IF TEST(e+2,e1-6)-=2 THEN sy=88 
:RETURN 

2468 IF TEST(e,e1-8)=2 THEN sy=B1:R 
ETURN 

2478 IF TEST(e+4,e1-4)=2 THEN sy=B2 
:RETUAN 

2488 IF TEST(e+4,e1-6)=2 THEN sy=83 
: RETURN 

2498 IF TEST(e+6,e1-6)=2 THEN sy=84 
:RETURN 

2508 IF TEST(e+1®,e1-4)=2 THEN sy=B 
5:RETURN 


2518 IF TEST(e+12,e1-4)=2 THEN sy=B 

6:RETURAN 

2528 IF TEST(e+18,e1-6)=2 THEN sy=8 

7:RETURN 

2538 IF TEST(e+2,e1-8)=2 THEN sy=B8 
:ARETURN 

2548 IF TEST(e+6,e1-8)=2 THEN sy=-89 
:RETUAN 

2558 IF TEST(e+8,e1-6)=2 THEN sy=98 
:RETUAN 

2568 sy=-®8:RETUAN 

2578 IF m=8 THEN i=2:PLOT 2,48,1:TA 

G ELSE i=-2:PLOT 8,49,3:TAG 

2588 IF i>z THEN TAGOFF :RETURN 

2598 IF TEST(t2(i),t3(i))=3 THEN MO 
VE t2(i),t3(i):PRINT CHR$( 244) ;:i=i 

+1:G0T0 2588 ELSE MOVE t2(i),t3(i): 

PAINT CHA$( 143) ; :i=-i+1:60TO 2588 

2608 

2618 ’#*#*# Raetsel bearbeiten #*# 

2620 

2638 IF t$(z)="" THEN GOSUB 2768:60 

TO 2678 

2648 CLS#1:LOCATE#1,5,1:PRINT#1, "Ne 

ues RAETSEL. laden ? (3J/n)"” 

2658 IF INKEY(45)=-8 THEN GOSUB 2768 
:GOTO 2678 

2668 IF INKEY(46)=8 THEN CLS#2 ELS 

E 2658 

2678 GOSUB 388:seit$="* bearbeiten 

#":G05SUB 1398:m=3:G0OSUB 2578 

2688 PLOT 2,48,1:TAG:FOR za=2 TO z 

2698 IF tAlza)=1 THEN zx=t( za) :FOR 

zb=1 TO LEN(t$(za)) :MOVE zx,tilza): 

PRINT MID$Ct$( za) ,zb,1); :zx=zx+18:N 

EXT 

27088 IF t4lza)=2 THEN zx=til za) :FOR 
zb=1 TO LEN(t$(za)) :MOVE t(za),zx: 

PRINT M1D$Lt$(za),zb,1); :zx=zx-18:N 

EXT 

2718 NEXT za: TAGOFF 

2728 IF m<>8 THEN nr=®8:n=1:INK 2,8, 

26:SPEED INK 48,48:G0T0 46B ELSE RE 

TURN 

2738 


2740 "ua were 


Raetsel laden 


2758 ° 

2768 IF a$="DISK” THEN m=8:G0SUB 41 
18 ELSE WINDOW 2,39,2,22 

2778 CLS#1:name$="":LOCATE#1,11,1:P 
RINT#1,">> L a de n <<"”:SOUND 1,88 
‚7,5,3,1:CALL &B883:LOCATE#1,14,2:1 
NPUT#1,"Name: ",‚name$ 

2788 IF INKEY(6)=8 THEN CLS:WINDOW 
1,40,1,25:60T0 3778 

2798 IF name$="" AND a$="DISK” THEN 
CLS:WINDOW 1,49,1,25:60170 3778 

2880 IF a$="D1SK" AND LEN([name$)>B 
THEN SOUND 1,280,7,5,3, 1:CL5#1:LOCA 

TE#1,9,1:PAINT#1, "maximal 8 Buchsta 
ben":FOR pau=1 TO 1584:NEXT:GOTO 27 

78 

2B18 IF a$="TAPE” AND LEN(Cname$) >16 
THEN SOUND 1,298,7,5,3,1:CLS#1:10C 

ATE#Z1I,2,1:PRINT#1,"maximal 16 Buchs 
taben":FOR pau=1 TN 1598:NEXT:GOTO 

27708 

2828 IF a$="DISK" THEN CL.S#1:LOCATE 

#1,18,1:PATINT#1,”">> Bitte warten «<< 
":CLS:i=2:PAINT:PRINT” Loading "”;UP 
PER$CLname$) EI.SE CLS#1:CLS:i=2 

2838 ODPENIN name$ 

28490 INPUT#9,baud 

2858 INPUT#9,breit 

2869 INPUT#9,hoch 

2878 IF a$="TAPE"” THEN LOCATEA42,2,1 
8:PRINT#2,"* Geladen wird mit”; :PEN 

#2 ,3:PRINT42,baud; :PEN#2,1:PRINT#2, 
"BAUD #"”:POKE E9FF?7,INT((333333/bau 

d)+®.5) 

2888 WHILE NOT EOF 

2898 INPUT#9,t$(i) 

2988 INPUT#9,t1$(i) 

2918 INPUT#9,t(i) 

292@ INPUT#9,t1(i) 

2938 INPUT#9,t2(i) 

2948 INPUT#9,t3(i) 

2959 INPUT#9,t4(i) 

2960 i=-i+1:WEND 

2978 CIOSEIN 

2988 FOR pau=1 TO 2888:NEXT:CLS:WIN 
DOW 1,490,1,25:z2=i-1:t$( z+1) ="":RETU 


2999 ’ 
3900 ’*** 
3810 
3228 C1.S42:IF t$(z)="" THEN GOSUB 3 
738:G0T0 3778 
3838 C1LS#1:name$="":LOCATEA1,8,1:PR 
INT#1,">> spe iche rn <<":CAL 
L. EBB93:LOCATE#1,11,2:INPUT#1, "Name 
"‚name$ 
38498 IF INKEY(6)=B THEN CLS#1:60T0O 
3778 
3859 
THEN 


Raetsel speichern *## 


IF a$="DISK"” AND LENEname$) >B 


33 


SOUND 1,280,7,5,3,1:CL5#1:L.0CAB® 


LISTING 


TE#1,9,1:PAINT#1,"maximal 8 Buchsta 
ben":FOR pau=1 TO 1588:NEXT:CLS#1:6G 
0TO 3a3a 

3069 IF a$="TAPE” AND LEN( name$) >16 


THEN SOUND _1,298,7,5,3,1:CL5#1:L0C 
ATE#1,9,1:PAINT#1,"maximal 16 Buchs 


taben":FOR pau=1 TO 1588:NEXT:CLS#1 
:50T0O 3838 

3078 WINDOW ?,39,2,22 

3n8a TF name$="" THEN rat=rat+1:1=L 
EN( STA$( rat)) -1:name$="RATE"+MID$(S 
IR$L cat) ,2,1) 

3098 IF a$="DISK"” THEN CLS#1:LOCATE 
#13,1398,1:PRINT#1,">> Bitte warten << 
":PRINT:PRINT"” Saving "”;UPPER$( name 
$) :name$=name$+”.bas"” ELSE GOSUB 32 
99 
3198 
3118 
31209 
3139 
3149 
3158 
3168 
3178 
3188 
3199 
3288 
3210 
3228 
3238 
2248 


vorsicht=® 

NDPENOUT name$ 

PRINTZ9,baud 

PARINT#9,breit 

PRINT#9,hoch 

FOR i=2 TO z 

PAINT#9,t$(i) 

PRINT#9,t1$(i) 

PRINT#9,t(i) 

PRINT#9,t1(i) 

PAINT#9,t2(i) 

PAINT#49,t3(i) 

PRINT#9,t4(i) 

NEXT 

CLOSEOUT 

3258 CLS:name$="":WINDOW 1,40,1,25: 
GOTO 3778 

3268 

3278 '***# Baudrate einstellen ***# 
32880 ° 

3298 CLS#1:CL5#2:PEN#F2,3:LOCATE#F2, 1 
2,2:PAINT#2,"BAUDRATE":PEN#2,1:PRIN 
T42:PRINTA2 


3380 PRINT#2," (1) 1588... BA 
UD" :PRINT#2:PRINT#2,” (2) 288 
®... BAUD” 

2318 PRINT#2:PRINT#2,"” (3) 25 


88... BAUD"”:PRINT#2:PRINT#2,"” 
(4) 3888... BAUD":PRINT#2:PRINT#2, 
® (5) 3580... BAUD“ 


3328 LOCATE#Z2,1,18:PRINT#Z2,"* ";:PE 
N#2,3:PRINTA2,baud; :PEN#2, 1:PRINT#2 
‚"BAUD sind eingestellt *":LOCATE# 
1,5,1:PRINT#1,"”Wenn Baudrate OK dan 
n ENTER" 

3330 IF INKEY(64)-@ 
THEN POKE E9FF?7,222: 
3398 

3348 IF INKEY(65)=® 
THEN POKE &E9FF7,16?: 
3398 

3359 IF INKEY(57)=-8 OR INKEY(S)=8 T 
HEN POKE &9FF7,133:baud=2589:G0T0 3 


OR INKEY( 13) =® 
baud=15898:GOTO 


OR INKEY( 14)=8& 
baud=2888:GOTO 


398 

3368 
THEN 
3399 
3378 
THEN 
398 

3388 IF INKEY( 18)=8 OR INKEY(6)=@ T 
HEN 3398 Ei.SE 3330 

3398 LOCATE#2,1,18:PRINT#42,"* ”;:PE 
N#2,3:PAINT#2,baud; :PEN#2,1:PRINT#2 


IF TINKEY(56)=8® OR INKEY(28)=® 
POKE &9FF7,111:baud=3888:6G0T0 


IF INKEY(49)=8 OR INKEY( 12) =8 
POKE E9FF7,95:baud=3588:G0T0 3 


‚"BAUD sind eingestellt #":CALL 89 
FF6 
3490 CLS#1:FOR yy=2 TO 18:LOCATE#2, 


9,yy:PRINT STAING$(26,” ");:NEXT:LO 


CATE 1,1:RETUAN 
aa10 ’ 

3420 ’#a### Drucker ##s8# 

3430 ’ 

3448 CLS#1:C1.5#2:LOCATE#2,9,4:PRINT 


#2, "DAUCKER- MENUE":PEN#2,3:LOCATE#F 

2,11,6:PRINT#42,"GP-588 CPC" 

3458 PEN#2,1:PRINT#2:PRINT#2:PRINT# 

2,” (1) Raetsel... ausdrucken":PR 

INT#2:PAINT#2,” (2) Gitter ... au 

sdrucken"”:PRINT#2:PRINT#2,”" (3) D 

aten ... ausdrucken" 

3468 LOCATE#1,9,1:PRINT#41,"Bitte Ih 

re Wahl ( 1-3)":SOUND 1,808,7,5,3,1 

3478 IF INKEY(64)=8 OR INKEY( 13) =-® 

THEN 3528 

3488 IF INKEY(65)=-® OR INKEY( 14)=®8 

THEN 3558 

3498 IF INKEY(57)-8 OR INKEY(S)=-M T 

HEN 3568 

3588 IF INKEY( 18)=-8 OR INKEY(6)=-8 T 

HEN GOTO 3778 

3510 GOTO 3478 

3528 IF t$(z)="" THEN GOSUB 3738:6G0 

T0 3778 

3538 PAPER#1,9:CLS41:CL5:m=98:G0SUB 

388:G0SUA 2579:G605UB 2688: seit$=-"* 

RAETSII. #"”:GOSUB 1398:PLOT 8,48,0:P 

LOT 2,480,8 

3548 GOSUB 3728:CL S#41:xa=16-(LEN(na 

me$) /2):PEN 1:LOCATE xa,24:PRINT"”#* 

#* "UPPER$(name$)" *3##":CALl. EABBO:C 

1.5:G0TO 4288 

355® PAPER#1,8:CLS:m=8:G0SUB 368:se 

it$="# erstellen *":60SUB 1398:GO0SU 

AR 3729:C1S#1:PLOT 2,48,8:PEN#1,1:L0 

CATE#1,7,1:PAINT#1,"Breite:"breit" 
Hoehe:"hoch:CALL EABB8B:CLS:GOTO 

a>on 

3568 IF t$(z)="" THEN GOSUB 3738:6G0 

TO 3778 

3578 dr=1:dru=1:CL5#1:INK 2,8, 14:10 

CATE#1,9,1:PRINT#1,"Ausgabe ("”;:PEN 

#1,2:PRINT41,”"D"; :PEN#1,3:PARINT#A1," 

Jrucker ?":LOCATE#1,9,2:PRINTA1I, "Au 
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E ; B su ee ec ee 0 


LISTING 


sgabe ("; :PEN#1,2:PRINT#1,"B"; :PEN# 
1,3:PAINT#1,")ildschirm ?” 

3588 IF INKEY(61)=8 THEN druck=1:IN 
K 2,26:G0T0 3688 


3598 IF INKEY(54)=® THEN druck=8:IN 
K 2,26:MODE 2:G0T0 3618 ELSE 3588 


3688 MODE 2:LOCATE 32, 12:PRINT CHRA$ 
(24)” Drucker bereit ? ":LOCATE 33, 
13:PAINT” Taste druecken ":PRINT CH 
R$( 24) ;:CALL &BBB3:CAll. EBB18:CL5 
3618 1=LEN(Ename$) +8: tabs=34-( 1/2) :P 
EN 1:PAINT TAB( tabs) ;”*##* "UPPER$(n 
ame$) ,;,” **=":PAINT TAB( tabs) ;STAING 
$C1,”-"):PRINT TAB(2) ;"Nr.:";TAB( 12 
) ;"Antwort:"”;TAB(48) ;"Frage:":PRINT 
TABL e) ; "+" TABL 12) re 77T 
AB( AB) ;"”---- --":WINDOW 1,80,5,23 
3528 IF druck=1 THEN PRINT#8,TAB(ta 
bs) ;"### "UPPER$(name$) ;" *##":PRIN 
T#8, TAB( tabs) ;5TRING$C1,"-") :PAINTf 
8, TABC?) ;"Nr.:"; TAB( 12) ;"Antwort:"” 
; TAB( 48) ; "Frage: ":PAINT#8, TAB( 2) ;" - 
ur TAB HE) ZA ”;TAB( 48) ;"-- 
3638 dru=dru+1:dr=dr+1 
3648 IF dru>z THEN WINDOW 1,88,1,25 
:CALL &BRB3:LOCATE 28,25:PRINT CHR$ 
(24)” BEENDEN TASTE DRUECKEN "CHR$( 
2A) ;:CALL &BB18:MODE 1:G0TO 4288 
3658 11=LEN(t$(dru)) :IF 11<1@ THEN 
du=1 ELSF du=2 
3668 IF t$( dru)<>"” THEN PRINT TAB( 
2) ;dru; TAB( 12) ;t$(dru) ;"” ("RIGHT$(S 
TA$C11),du)”")";TAB(AB) ;t1$ldru) :GOT 
0 3680 
3678 PRINT TAB(2) ;dru; TAB( 12) ;"---- 
----"; TAB( 48) ; "----—-" 
3688 IF druck=1 AND t$(dru)<>"”" THE 
N PRINT#8,TAB( 2) ;dru; TAB( 12) ;t$( dru 
);" C"RIGHT$CSTA$CLL) ,du)")";TAB( 48 
);tı$( dru) :GOTO 3788 
3698 {IF druck=1 THEN PRINT#8,TAB(2) 
;dru; TAB( 12) ;"----- ---";TAB( 48) ;”-- 


3788 IF druck=® AND dr=1B THEN dr=1 
:WINDOW 1,88,1,25:L0CATE 32,25:PRIN 
T CHR$C2A)” TASTE DRUECKEN "CHR$( 2A 
);:CAl.ı. EBRAB3:CALL &£BB18:LOCATE 32, 
25:PRINT STRAING$( 16,” ”"); :WINDOW 1, 
80,5,23:CLS:60T0 3638 

3718 GOTO 3630 

3728 LOCATE 12,24:PRINT"Drucker ber 
eit ?":LOCATE 13,25:PAINT”Taste dru 
ecken"”:CALL &BB®3:CALL &6818:RETUAN 
373@ C1S#1:5S0OUND 1,2098,7,5,3,1:L0CA 
TE#1,6,1:PRINT#1,"Keine Daten vorha 


nden !!!":FOR pau=1 TO 1588:NEXT:RE 
TURN 

37408 

3758 ” *##### Hauptmenue ##### 


u wi 


3768 

3778 CLS#1:CLS#2:LOCATE#2,14,1:PRIN 
T#2,"MENUE” :PRINT#2:PAINT#2 

3788 PRINT#2,” Raetsel... 
ellen" :PAINT#2:PRINT#2,” 

el... raten" :PRINT#2:PRINT#2,” 
Raetsel... bearbeiten" 

3798 PRINT#2:PRINTA2,"” Raetsel 

speichern" :PRINT#2:PRINT#2,"” 


erst 
Raets 


Raetsel... loeschen"” :PRINT#2:PRI 
NT#2,"” Catalog... ausgeben"”:PR 
INT#2:PRINT#2,” Drucker... Men 
ue" 


3888 PEN#2,3:LOCATE#2,7,18:PRINT#2, 
"20N.a$;"% . Betrieb" :PENf2, 1 
3818 LOCATE#1,8,1:PARINT#1,CHRA$( 240) 
;”" Bitte waehlen Sie ";CHR$( 241); :n 
1=324 :n3=8:n4=24:n5=-2:m=1:G0SUB 38 
79:CALI. EBB83:CALL &BB18:L0OCATE#1,8 
‚1:PRINT#1,"Mit ENTER bestaetigen” 
3828 IF INKEY( 18) :8 OR INKEY(6)=® T 
HEN 3898 
3838 IF INKEY(2)=® THEN f=8:n2=-32: 
n3=8:n4=24:n5=-2:G0SUB 3889 :m=m+1:6 
0TO 3868 
3848 IF INKEY(@)=8 THEN f=9:n2=32:n 
3=24:n4=@:n5=2:G0SUB 3888 :m=m-1:G6G0T 
DO 3869 
3859 GOTO 3828 
386@® n1=n1+n2:605UB 3878:G0TO 3828 
387@ IF n1>324 THEN n1=-324:m=1 ELSE 
TF n1<198 THEN n1=180:m=8 
3888 PRINT tran$; :FOR n=n1-n3 TO ni 
-nA STEP n5:MOVE 14A4,n:DRAW 518,n,3 
:NEXT:PRINT trans$; :RETURN 
3899 IF m=1 THEN 448 
3908 IF m=2 THEN 1468 
3918 IF m=3 THEN CLS#2:G0TO 2630 
m=4 THEN 3928 
5 THEN GOSUB 4889:G0T0 37 


W 
Ne] 
Ww 
S 
u 
7 
3 
l 


3948 IF m=6 THEN GOSUB A4118:G0T0 37 
395@ IF m=7 THEN 34408 

3968 IF m=8 AND a$="DISK" THEN a$=" 
TAPE” :bau=INT( ( 333333/PEEKL&9FF7)) / 
188) :baud=(bau#*18®) :POKE E9IFFF,2:1T 
APE :GOSUB 3888:G0T0 3888 ELSE IF m= 
8 AND a$="TAPE” THEN a$="DISK" :POKE 
EIFFF,1:| DISC:GOSUB 3888:G0T0 3898 
3978 


3988 ° ### RAaetsel loeschen *#*# 
3998 ” 
aB88 CLS#?2:IF a$="TAPE” THEN SOUND 


1,289,7,5,3,1:CLS#1:LOCATE#1,5,1:PR 
INT#1,"Nur im DISK-Betrieb moeglich 
":FOR pau=1 TO 39A9:NEFXT:GOTO 3778 

ABIB CLS#1:C1.5#2:L0OCATE#1,8,1:PRINT 
#1,">> loe sc he n <<":WINDOW 2 
‚39,2,21:CAT:SOUND 1,80,7,5,3,1 
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LISTING 


48?28 CALL EB88@3:LOCATEA1, 
#1,"File: ",name$ 

4838 IF name$="" THEN CLS:WINDOW 1, 
a 1,25:CL5#41:a=2:RETURN ELSE a=2 


408 IF a>12 _THEN 4868 
ause IF MID$Cname$,a,1)=". 


78 ELSE a=a+1:G0TO 4848 

AaB6R SOUND 1,288,7,5,3,1:CLS#1:LO0CA 
TE#1,6, 1:PRINT#1, "Unvollstaendige E 
ingabe !!!":FOR pau=1 TO 1588:NEXT: 
Dr S41:G0TO Aa2A 

AB7B |ERA,@name$:CLS:G0OTO 4898 

anso ’ 


11,2: INPUT 


" THEN 48 


4090 ’ ####2 Catalog ##### 
4180 ’ 
a118 IF a$="TAPE” THEN CLS#1:CL542: 


LOCATE#1,9,1:PRINTF1,”>> Catal 

oo g <<":LOCATE#1,11,2:PRINT#1,"Been 

den mit ESC":WINDOW 2,39,2,22:CAT 

A13?B8 IF a$="TAPE” THEN CLS:WINDOW 1 
‚48,1,25:RETURN 

4138 CLS#41:CL542:L0OCATE#1,9,1:PRINT 

#1,">> Cat a 1 og <<":WINDOW 2,3 

9,2,22:CAT 

a148 IF m=2 OR m=B THEN RETURN 

AIS® LOCATE#1,11,2:PARINT#1, "ENTER 

druerken” 

A168 IF INKEY( 18)=8 THEN CLS:WINDOW 
1,49,1,?25:RETUAN ELSE 4168 


4178 

A188 * *## Bildschirmmaske ##* 
4198 

A42P8 MOVE B,16:DRAWR 9,382,3:DRAWR 


638,0:DRAWR ®,-382:DRAWR-16,-16:DRA 

WRA-686,,9:DRAWR--16, 16 

a2ı@ MOVE A,20:DAAWR ®,374:DRAWR 63 

98,0:DRAWR @,-374:DRAWR-16,-16:DRAWR 
-598,@:DRAWA-16,16 

a?22@ MOVE 2,18:DRAWR 9,378, 1:DRAWR 
634,8:DRAWR &,-378:DAAWR-16,-16:DRA 

WR -682,9:DRAWR--16, 16 

A238 MUOVE 32,32:DRAWR 574,8:MOVE 32 
‚36:DRAWA 574,40,3:DRAWR 4,-4:DRAWR 
®,-28:DRAWA-582,0:DRAWR 8,28:DRAWR 

4,A:MOVE 34,34:DRAWR 578,8:DRAWR 4A, 
-4:DRAWR ®,-26:DRAWA-578,0:DRAWA ®. 

26:DRAWA 4,4 

A248 WINDOW#1,3,38,24,25:PAPER#1,1: 
PEN#1,3:CLS#1:WINDOW#2,5,38,3,21:PE 


NET CLSIE 

58 TAG:MOVE 18,30:PRINT"?";:MOVE 
2 PRINT"?7";: TAGOFF 
4268 IF PEEK(EIFFF)=1 THEN a$="DISK 


":G0TO 3778 ELSE IF PEEK(&9FFF)=2 T 
HEN a$="TAPE":GOTO 3778 


4278 

4288 'F##8# MC-Baudrate *##### 
4298 

4388 MEMORY &9FFS 


4318 RESTORE A330:FOR x=&9FF6 TO 69 


FFF 
132® READ a:POKE x,a:NEXT:GOTO 4378 


4338 DATA 33,222,0,62, 10,285, 104,18 
B,201,0 

aaao ’ 

A35@ "### MC-Drucker GP-SABCPC *#** 
4360 ’ 

437@ RESTORE A410:FOR x=ECABBB TO BA 
083 

A388 READ p$:POKE x,VAL("E"+p$) :sum 


=sum+VAL( "&”"+p$) :NEXT 

4398 IF sum<>21752 THEN PRINT"”### D 
ATA FEHLER #*#":END 

A488 RETURN 

a418 DATA cd,ba,bb,cd,e7,bb,32,b8,a 
0,3e,8d,cd,6f,a9,3e,Q8a,cd,6f,a®,11, 
00,00,21,09,088,ed,53,b1,a8,cd 

4429 DATA 78,3a9,cd,97,38,8e,908,06,® 
7,ed,5b,b1,a8,e5,dS5,c5,cd,f®,bb,c1, 
d1,21,b9,a8,be,e1,37,290,81,a7 

4438 DATA cb,19,13,18,ea,cb, 19,79,c 
d,6f,38,79,cd,6f,88,23,23,d5,11,98, 
N1,eb,37,ed,52,eb,d1,38,82,18 

444R DATA c8,13,e5,21,88,82,37,ed,5 
2,e1,38,3a,ed,53,b1,30,21,88,88,18, 
ae,cd,2e,bd,38,fb,cd,2b,bd,c9 

a458 DATA 3e,B8d,cd,6f,38,3e,®8a,cd,6 
t,a®,3e,1b,cd,6f,a®8,3e,4b,cd,6f,a®, 
3e,83,cd,6f,a@8,3e,19,cd,6f,a® 

4469 DATA c9,e5,3e,42,cd,1le,bb,el,c 
8,e1,3e,8d,cd,6f,a8,3e,@8f,cd,6f,a®, 
3e,8d,cd,6f,a9M,c9,09,00,009,98 
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LISTING 


Viele von Ihnen kennen sicher das Spiel ‚„Mastermind‘“. 
Aber für alle, die es noch nicht kennen, hier eine neue 
Version des beliebten Denk- und Knobelspiels. 

Unser Autor Andreas Staude hat es geschrieben. Es 
zeichnet sich durch eine gut gelungene grafische Dar- 
stellung aus. 

Der Sinn des Spiels ist schnell gesagt. Sie müssen ei- 
nen Code knacken, den Ihnen Ihr Rechner vorgibt. 

In vier verschiedene Löcher müssen Stifte in sechs 
verschiedenen Farben gesteckt werden. Dazu haben 
Sie eine Reihe von Versuchen zur Verfügung. Und 
nach jedem Versuch teilt Ihnen der CPC mit, wieviel 
Stifte Sie richtig gesteckt haben. 

Haben Sie die richtige Farbe in das richtige Loch ge- 
steckt, so wird im Ergebnisfeld ein schwarzer Punkt 
für jeden richtigen Stift angezeigt, stimmt nur die 
Farbe, aber das Loch ist verkehrt, so wird ein wei- 
ßer Punkt markiert. 

Zu beachten dabei ist allerdings noch, daß der CPC 
beim (unsichtbaren) Setzen seiner Stifte auch durch- 
aus mal zwei oder mehr gleichfarbige Stifte auswäh- 
len kann. 

Haben Sie den Code dann geknackt, so wird das Er- 
gebnis, nämlich die Zahl der Versuche bis zur richti- 
gen Lösung, ausgewertet und Sie erhalten ein Ergeb- 
nis Ihrer Kombinationsgabe mitgeteilt. 

Ein Spiel für die ganze Familie, denn damit kann man 
regelrechte Turniere austragen 'unter dem Motto: 
„Wer kombiniert am besten?“ (JE) 
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LISTING 


EREURAEUHREURHSRRTIER HUREN IHN 


= CPC 664/6128 je* 

KRESRUCHUNUTERKIEIHEHENENERE 
Ba MODE 9:BORDER B:INK 8,8: INK 1,26 
:INK 2,4:INK 3,?4:INK 4,6:INK 5,7:1 

NK 6,8:INK 7,9:1NK 8,26:INK 9,6:1NK 
19, 11:INK 11,2:INK 12,12:1 

NK 13,4: INK 14,2A4:INK 15,9:605UB 33 

88 

28 s=aAN: j=1:f=1:H0R i=1 TO 12:FOR 

t=1 TN IAB:NEFXT t 

39 PEN F:LOCATE 2, j:PRINT 

RH IRA N":3j=Jj+2 

48 IF f=A4 THEN F=5 

50 F=f+1:S0UND 1,s-j*5,35:50UND 1,s 

-4#19,35:NEXT i 

6a ’##%# Gpielanleitung **## 

8 MODE. 1:BORDER B:INK 8,8:INK 1,6: 

INK 2,28:INK 3,9:PAPER ®:CLS 

80 PEN 1:LOCATE 12,2:PRINT "S UPE 
AH IR N" 

98 GRAPHICS PEN 3:0RIGIN 174,368:DR 

AW 289,0 

180 PEN 2:LOCATE 8, 12:PRAINT "Moecht 

en Sie eine Spielanleitung ?" 

118 PEN 1:LOCATE 36, 13:PRINT "j / n 


1 

2% SUPERHIAN * 
3 '* VON * 
a '* ANDREAS STAUDE ® 
5 ’* FUER * 
68 SCHNEIDER AKTIV # 
en 

8’: 


nn 


"SUPE 


128 PEN 1:LOCATE 1,24:PRINT"(c) A. 

Staude 28.9.86 

138 CALL &8B86:IF INKEY(4A45) THEN 32 

@ ELSE 1408 

148 CLS:PEN 1:L0OCATE 8,2:PRINT "S P 
I ELANLETLITUN EG” 

158 GRAPHICS PEN 3:0RIGIN 1900,368:D 

RAW 460,08 

168 PEN 1:LOCATE 15,6:PRINT "Bestan 

eteile:":GRAPHICS PEN 3:0RIGIN 214, 

296:DRAW 228,9:PEN ? 

17@ LOCATE 1,9:PRINT ” 1. Spielbret 

t mit Loechern":LOCATE 1,12:PRINT "” 
2. Schild, welches vom Computer au 

fge- stellt wird, um da 

hinter vier Code- stecker zu se 
tzen. 

188 LOCATE 1,17:PARINT ” 3. Codestec 

ker in sechs Farben"”:LOCATE 1,28:PR 
INT ”" 4. Chiffrierstecker in schwar 
z und in weiss." 

198 PEN 1:LOCATE 5,24:PAINT "Weiter 
mit"”:PEN 3:LOCATE 16,24:PRINT "” >> 
>» 5 pa c e <<<":PEN 2:CALL &BB18 
:C1S 

288 PEN 1:LOCATE 14,2:PRINT "Spielr 
egeln":GRAPHICS PEN 3:0RIGIN 284,36 


@:DRAW 186,8:PEN 2 
218 LOCATE 1,5:PRINT "Der Computer 
steckt vier Coderstecker indie Loec 
her hinter dem Schild, ohne dem Spi 
eler Einblick zu gewaehren. 
228 LOCATE 1,9:PRINT "Jede Kombinat 
ion der 6 Codefarben ist gestatte 
t. Der Computer darf auch 2 odermeh 
r Stecker einer Farbe waehl 
en.” 
238 LOTATE 1,13:PRINT "Der Spieler 
wird nun versuchen, die ihm nicht z 
ugaengliche Steckerkombination inrFfa 
rben und Lage genau nachzub 
ilden.” 
248 LOCATE 1,17:PRINT "Nach jeder v 
om Spieler gesteckten Reihe von Cod 
esteckern (Die Codestecker blei- be 
n bis Spielende unveraender 
t in ihrer Lage) steckt der Compute 
r schwarze oder weisse Stifte der v 
jer Chiffrierloecher am HRande der g 
esteckten Reihe.” 
?58 PEN 1:LOCATE 5,24:PRINT "Weiter 
mit":PEN 3:LOCATE 16,24:PRINT " >> 
>» Space <<<":PEN 2:CALL &BB18 
:CLS 
268 PEN 1:LOCATE 14,2:PRINT "Spiel 
regeln" :GAAPHICS PEN 3:0RIGIN 294,3 
6N0:DRAW 186,9:PEN 2 
278 1LOCATE 1,5:PRINT "Oder er laess 
t Loecher frei, um den Spieler 
veber die Richtigkeit der Ent 
schluesselung zu informiere 
n. 
288 LOCATE 1,9:PRINT "Der Computer 
wird vier schwarze Stifte in die L 
voecher Stecken, wenn der Spielerdie 
ihm verborgene Kombination 
genau nachgebildet hat, worauf 
das Schild entfernt wird.” 
298 LOCATE 1,15:PRAINT "Mit den Curs 


ortasten <> wird die gewuesc 
hte Codefarbe angewaehlt. 
Mit der --> COPY <-- T 


aste wird die Codefarbe gesezt. 
38 PEN 1:LOCATE 5,24:PRINT "Weiter 
mit":PEN 3:LOCATE 16,24:PRINT "” >> 
> 5 pa ce <<<":PEN 2:CALL &BB18 
319 ’**# Spielfeld **#* 

328 MODE ®:BORDER 9:INK 8,8:INK 1,8 
:INK 2,9:INK 3,8:INK A4,8:INK 5,8:IN 
K 6,8:INK 7,8:INK 8,8:INK 9,8:INK 1 
8,8:INK 11,8:INK 12,8:INK 1 

3,8:INK 14,8:INK 15,8:G605SUB 3328 
33a GRAPHICS PEN 1:0RIGIN 8,8:DRAW 
260,8:NDRAW 268,399:DRAW 8, 399:DRAW 


38 


LISTING 


9,9:0RIGIN 4,4:FILL 1 

34M ORIGIN 284,366:DRAW 356,8:DRAW 
356,34:DRAW 9,34:DRAW 8,8:0RIGIN 28 
8,368:FILL 1 

3508 x=3@0:y=16:0RIGIN x,y 

36@ FOR sz=1 TO 18 

378 x=x:y=y:ORIGIN x,y:IKREIS,4,8 
388 x=x+16:y=-y:ORAIGIN x,y:IKREIS,4A 
398 x=x:y=y+12:0RIGIN x,y:IKREIS,4 


488 x=x-16:y=y:ORIGIN x,y:1KREIS,4 
a18 x=x:y=y+24:NEXT sz 

428 x=110:y=22:0RIGIN x,y 

438 FOR sz=1 TO 18:FOR zs=1 TO 4 


x=x:y=y:ORIGIN x,y:IKREIS,B 
x=x+48:y=y:ORIGIN x,y:NEXT zs 
x=x-160:y=y 
x=x:y=y:ORIGIN x,y:IKREIS,8 
x=x:y=y+36:O0RIGIN x,y:NEXT sz 
x=306:y=382:G0SUB 3228 
x=366:y=382:605UB 3238 
x=430:y=382:G0OSUB 3248 
x=494:y=387:G0SUB 3258 
x=5656:y=-382:G0SUB 3268 
x=6290:y=382:G6G0SUB 3278 
GOSUB 3488 
'##% Setzen Masterstecker 1 *##% 
z=8:DEFINT b:GOTQO 598 
z=1:RETUAN 
b=-AND#29:IF b<1 THEN 598 
AFTER b GOSUB 588 
618 IF z=1 THEN st1$="blau”:x=110:y 
=382:G0SUB 3158:60T0 678 ELSE IF z= 
@ THEN GOTO 628 
628 IF z=1 THEN 
=382:GOSUR 3168: 
W THEN GOTO 639 
630 IF z=1 THEN st1$="gruen”:x=11®: 
y-382:G0SUB 3178:G0T0O 678 ELSE IF z 
=D THEN GOTO 648 
648 IF z=1 THEN st1$="rot”:x=110:y= 
382:G05SUB 3188:G0T0 678 ELSE IF z=® 
THEN GOTO 658 
659 IF z=1 THEN st1$="weiss"”:x=118: 
y=-382:605U8B 31998:G0T0 678 ELSE IF z 
= THEN GOTO 668 
660 IF z=1 THEN st1$="schwarz"”:x=11 
8:y=382:G0OSUB 3288:G0T0 678 ELSE IF 
z=@® THEN GOTO 618 


st1$="gelb”:x=110:y 
G0TO 678 ELSE IF z= 


678 '*### Setzen Masterstecker 2 ### 
688 z=-B:DEFINT b:GOTO 788 
698 z=1:RETURN 


7908 b=AND*28:IF b<1 THEN 788 

718 AFTER b GOSUB 698 

728 IF z=1 THEN st2$="blau”:x=159:y 
=382:G6G0SUB 3158:6G010 788 ELSE IF z= 
8 THEN GOTO 730 

738 IF z=1 THEN st2$="gelb":x=158:y 
=382:G05UB 31698:G0T0O 788 ELSE IF z= 
® THEN GOTO 748 


y=-382:GOSUB 3178:G0T0O 788 ELSE IF z 
=8 THEN GOTO 758 

758 IF z=1 THEN st2$="rot":x=150:y= 
382:G0SUB 3188:G0T0 788 ELSE IF z=® 
THEN GOTO 768 

768 IF z=1 THEN st2$="weiss":x=150: 

y=-382:6G05UB 3198:G0T0 788 ELSE IF z 
=B8 THEN GOTO 778 

778 IF z=1 THEN st2$="schwarz"”:x=15 

@:y=-382:G0SUB 3288:G0T0 788 ELSE IF 
z=8 THEN GOTO 728 

788 ’### Setzen Masterstecker 3 *## 

798 z=8:DEFINT b:GOTO 818 

8088 z=1:RETURN 

818 b=-AND*#28:IF b<1 THEN 818 

828 AFTER b GOSUB 888 

838 IF z=1 THEN st3$="blau”:x=190:y 

=382:G0OSUB 31598:G0T0O 898 ELSE IF z= 
@ THEN GOTO 848 

848 IF z=1 THEN 
=382:G05UB 3168: 

@ THEN GOTO 858 
8598 IF 7=1 THEN st3$="gruen"”:x=198: 

y=382:G0SUB 3178:6C0T0 898 ELSE IF z 
=-8 THEN GOTO 868 

868 IF z=1 THEN st3$="rot”":x=190:y= 
382:G0OSUB 3189:G0T0 898 ELSE IF z=-® 
THEN GUÜTO 878 

878 IF z=1 THEN st3$="weiss"”:x=198: 

y-382:G05UB 3198:G0T0 898 ELSE IF z 

=8 THEN GOTO 889 

888 IF z=-1 THEN st3$="schwarz":x=19 

0:y=-382:605SUB 3288:G6G0T0 898 ELSE IF 
z=AR THEN GOTO 838 

898 ’#*=* Setzen Masterstecker 4 
988 z=98:DEFINT b:G0OTO 929 

918 z=1:RFETURN 

928 b=AND*#29:IF b<1 THEN 928 

938 AFTER b GOUSLUB 918 

9480 IF z=1 THEN st4$="blau”:x=238: 

-382:605UB 3158:G60TD 1918 ELSE IF 
=9 THEN GOTO 958 

958 IF z=1 THEN st4$="gelb":x=230:y 
=382:G0SUB 3168:GC0T0 1818 ELSE IF z 
=9 IHEN GOTO 96% 

968 IF z=1 THEN st4$="gruen":x=239: 

y=-382:605UB 3179:G60T0 1818 ELSE IF 
z=B THEN GOTO 978 

978 IF z=1 THEN st4$="rot” :x=230:y= 
382:G0OSUB 3188:6G010 1818 ELSE IF z= 

8 THEN GOTO 988 

988 IF z=1 THEN st4$="weiss":x=238: 

y-382:G0SUB 3198:60T0 1818 ELSE IF 
z=-8 THEN GOTO 998 

998 IF z=1 THEN st4$="schwarz"”:x=23 

8:y=-382:605UB 3288:G0T0 1818 EI_SE I 

F z=B8 THEN GUTO 948 

1888 ’## Codestecker auf Spielfeld 

44 


st3$="gelb":x=198:y 
GOTO 898 ELSE IF z= 


E22 


N« 


1818 PEN 14:LOCATE 13,15:PRINT CHR$ZP 
39 


748 IF z=1 THEN st2$="gruen” :x=158B: 


LISTING 


( 199) :LOCATE 15, 15:PRINT "C":LOCATE 
17,135:PRINT CHRA$(C 197) 
1829 INK 1,3:INK 2,26:INK 3,13:INK 
4,3:INK 5,3:INK 6,3:INK 7,3:INK 8,3 
:INK 9,3:INK 18,2:INK 11,24:INK 12, 
9:INK 13,6:INK 14,26:INK 15 
„a 
1938 b=9:z=-9:s=9:x=-66:y=-29:G05UB 35 
208 
1828 PEN 2:x1=108:LOCATE x1,4:PRINT 
CHR$( 240) 
1958 code1$=-"9":code2$="B8*":code3$=" 
8” :code4$="9":a=-9:b=-9:c=-d:d=B:e=-d:f 
=9:g=9:h=9:i=-9: j=B:k=-9:1=-98:m=-d:n=@: 
0=-8:p=-®:r=-Q9:u-d:v-d:w=-d:z=8 
1862 IF INKEY( 1)=@ THEN GÜSUB 3340: 
LOCATE x1,4:PRINT CHR$( 32) :x1=x1+2: 
IF x1>28 THEN x1=18 
1878 LOCATE x1,4:PRINT CHR$( 240) 
1888 IF INKEY(8)=® THEN GOSUB 3348: 
LOCATE x1,4:PRINT CHR$C 32) :x1=%x1-2: 
IF x1<18 THEN x1=28 
1898 LOCATE x1,4:PRINT CHR$( 240) 
1108 IF s=48 AND q<4 THEN GOSUB 335 
8:50UND 1,168,38:50UND 1,178,398:50U 
ND 1,188,39:5S0UND 1,1998,38:50UND 1, 
2080,38:5S0UND 1,228,38:SOUND 
1,239,39:50UND 1,2498,398:50UND 1,25 
9a,59:G0SUB 3589:60SUB 3378:G0T0 358 
» 
1118 IF INKEY(47)=B THEN GOSUB 3598 
1128 IF INKEY(9)=® THEN s=s+1:50UND 
1,408,298:G0SUB 3349:G6G0T0 1158 
11339 GOTO 1469 
114% 'Codestecker auf Spielfeld 
1158 IF s=33 OR s>33 THEN GOTO 1688 
1168 IF s=25 OA s>25 THEN GOTO 1578 
117@ IF s=17 OR s>17 THEN GOTO 1458 
1188 IF s=9 DR s>9 THEN GOTO 1338 
1198 IF s=1 OR s>1 THEN GOTO 1218 
12890 
1218 IF s=1 THEN x=118:y=22:G05UB 1 
89: code1$=code$ 
1228 IF s=2 THEN 
899: code2$=code$ 
1238 IF s=3 THEN 
BB9: code3$=-code$ 
1248 IF s=4 THEN 
B9A: r0odeA$=code$ 
1258 IF s=4 THEN x=66:y=-28:6G05UB 35 
59:x=66:y=-56:605UB 3520:x=30:y=-28:6G 
010 1889 ELSE IF s<4 THEN GOTO 1868 
1260 ’ 
1278 IF s=5 THEN 
808:code1$=-code$ 
1288 IF s=6 THEN 
899: code2$=code$ 
1298 IF s=7 THEN 
808: code3$=code$ 
1388 IF s=B THEN 


x=158:y=22:G0SUB 1 
x=190:y=22:G0SUB 1 


x=-238:y=22:G0SUB 1 


x=119:y=58:6G0SUB 1 
x=150:y=-58:G0OSUB 1 
x=198:y=58:605SUB 1 


x=230:y=-58:605SUB 1 


899:code4$=code$ 

1318 IF s=8 THEN x=66:y=56:GOSUB 35 
58:x=66:y=-92:G0OSUB 3529:x=38:y=64:6 
D01I0 188W ELSE IF s<8B THEN GOTO 1468 
1320 

1338 IF s=9 THEN x=110:y=-94:G0SUB 1 
BBN: code 1$=rode$ 


1348 IF s=18 THEN x=150:y=-94:GOSUB 

1899: code?$=code$ 

135# IF s=11 IHEN x=190:y=94:605UB 

188%: code 3$=-code$ 

1369 IF s=12 THEN x=238:y=94A:GOUSUB 

18089 :code4$:code$ 

1378 IF s=12 THEN x=66:y=-92:G0SUB 3 


558:x=66:y=128:G605UB 3529:x=380:y=10 

R:G6010 1888 EiL.SE IF s<12 THEN GOTO 
1068 

1380 

1398 IF s=13 THEN x=110:y=-138:G0SUB 
1889: code1$=code$ 

1488 IF s=14 THEN x=158:y=139:GOSUB 
1809: code2$=code$ 

1418 IF s=15 THEN x=1990:y=138:60SUB 
i8AAM:code3$=code$ 

1428 IF s=16 THEN x=239:y=139:G0SU8 
18829: code4$=code$ 

1438 IF s=16 THEN x=66:y=128:G0SUB 

35590:x=66:y=1564:605UB 3528:x=39:y=1 

36:60T0 1888 ELSE IF s<16 THEN GOTO 
1968 

448 

1458 IF s=17 THEN x=110:y=166:G6G05SUB 
1889:code1$=-code$ 

1468 IF s=18 THEN x=150:y=166:6G0SUB 
1889 :2ode2$=code$ 

1478 IF s=19 THEN x=198:y=166:60SUB 
18989: c20de3$=code$ 

1488 IF s=28 THEN x=238:y=166:GOSUB 
1899: code4$=cnde$ 

1498 IF s=28 THEN x=66:y=164:G0SUB 

35590:x=66:y=-2M9:GOSUB 3528:x=39:y=1 

72°:G0TDO 1889 ELSE IF s<28 THEN GOTO 
1068 

1508 

1518 IF s=21 THEN x=118:y=-282:G05SUB 
1889: code 1$=code$ 

1528 IF s=22 THEN x=158: y=-292:GOSUB 
1808: code2$=code$ 

1538 IF s=23 THEN x=198:y=-292:GOSUB 
1889: code3$=code$ 

1548 IF s=24 THEN x=238:y=292:G0SUB 
18089:code4$=code$ 

1558 IF s=24 THEN x=66:y=-2908:G0SUB 

3559:x=66:y=-236:605SUB 3520:x=30:y=2 

08:60T0 1888 ELSE IF s<24A THEN GOTO 
1068 

1568 ° 

1578 IF s=25 THEN x=118:y=238:6GOSUB 
1889: code 1$=coade$ 

1588 IF s=26 THEN x=158:y=238:GOSUB 
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LISTING 


1888: code2$=code$ 

1598 IF s=27 THEN x=198:y=-238:GOSUB 
1898: code3$=code$ 

1690 IF s=-28 THEN x=238:y=238:GD5SUB 
1889:code4$=code$ 

1618 IF s=2B THEN x=66:y=-236:G605UB 

3550:x-66:y=-272:G05UB 3520:x-66:y=-2 

36:x=38:y=-244:G0T0 1888 ELSE IF s<2 

8 THEN GOTO 1868 

1628 IF s=29 THEN x=118:y=274:G05SUB 
1889 :code1$=code$ 

16398 IF s=38 THEN x=159:y=-274:G60SUB 
18989: code2$=code$ 

1648 IF s=31 THEN x=190:y=-274:G0OSUB 
1899: code3$=code$ 

1658 IF s=32 THEN x=239:y=274:G0SUB 
1899: code4$=code$ 

1668 IF s=32 THEN x=66:y=-272:GOSUB 

3550:x=66:y=-388:GUSUB 3520:x=30:y=2 

89:G0T0 1888 ELSE IF s<32 THEN GOTO 
1868 

1670 

1688 IF s=-33 THEN x=119:y=318:GOSUB 
1899: code 1$:=:code$ 

1698 IF s=34 THEN x=158:y=319:GOSUB 
1898 :code?$=code$ 

1788 IF s=35 THEN x=1998:y=318:GOSUB 
1888: code3$=code$ 

1718 IF s=36 THEN x=239:y=319:G0OSUB 
1898: code4$=code$ 

1728 IF s=36 THEN x=66:y=-388:GO0SUB 

3550:x=66:y=-344::G0OSUB 3529:x=30:y=- 

316:60T0 1888 ELSE IF s<36 THEN GOT 

0 1968 

1738 

1748 IF s=37 THEN x=118:y=346 :GOSUB 
1889: code 1$=code$ 

1750 IF s=38 THEN x=158:y=346 :GOSUB 
1888: code?2$=code$ 

1768 IF s=39 THEN x=190:y=346:GOSUB 
1889:c0ode3$=code$ 

1778 IF s=48 THEN x=230:y=346 ::GOSUB 
1899 :codeA$=code$ 

1788 IF s=48 THEN x=38:y=352:6G0T0 1 


888 ELSE IF s<48 THEN GOTO 1968 
1798 

1800 IF x1=18 THEN code$="blau":GOS 
un 3228 

71818 IF x1=12 THEN code$="gelb":GOS 
uUB 3238 

1828 IF x1=14 THEN code$="gruen":GO 
SUB 3248 

1838 IF x1=16 THEN code$="rot" :GOSU 
B 3258 

1848 IF x1=18 THEN code$="weiss":GO 
SuB 3268 

1858 IF x1=28 THEN code$="schwarz": 
G0SUB 3278 


1868 RETURN 
1878 ’*Setzen Chiffrierstecker* 


1888 
1898 
1988 
1918 
1928 
1938 
1948 
1958 
1968 
1978 
1988 
1998 
2888 
2818 
2828 
2838 
2848 
2058 
286N 
20708 
2988 
2998 


2368 
23708 
2388 


2398 


2488 
2418 
2428 
2438 
244080 
2458 
2468 
2478 


41 


“ m=1 THEN 


code1$=st1$ THEN 
code2$=st2$ THEN 
code3$=st3$ THEN i=-1 
code4$=st4$ THEN 


a=1 THEN 2848 
e=1 THEN 1968 
code 1$=st2$ THEN 
i=1 THEN 1988 
code1$=st3$ THEN 
m=1 THEN 2988 
code 1$=st4$ THEN 
THEN c=8:d=8 
I THEN b=9:d=8 
1 THEN b=8:c=8 


THEN 2178 
a=1 THEN 2878 
code?2$=st1$ THEN 
i=1 THEN 2188 
c=1 THEN 2188 
code2$=st3$ THEN 
m=-1 THEN 2138 
d=1 THEN 2138 
code2$=st4$ THEN 
ge=9:h=8 
f=-8:h=8 
f=0:g-8 


2318 
22108 
22108 
code3$=st1$ THEN 
e=1 THEN 2248 
b=1 THEN 2248 
code3$=st2$ THEN k=1 
2270 

d=1 OR h=1 THEN 2278 
code3$=st4$ THEN 1=1 


3-1 


j=-1 THEN k=8:1=8 

k=1 THEN j=-8:1=8 

1=1 THEN j=-9:k=®8 

m=1 THEN 25988 

a=1 THEN 2358 

f=1 OR j=1 THEN 2358 
code4$=st1$ THEN n=1 


e=-1 THEN 2388 

b=1 OR k=1 THEN 2388 
code4$=st2$ THEN o=1 
i=1 THEN 24108 

c=1 OR g=1 THEN 2410 
code4$=st3$ THEN p=1 
n=1 THEN 0o=8:p=8 

o=-1 THEN n=9:p=8 

p=-1 THEN n=B:0=B 


a=1 THEN f=8: j=8:n=8 
e=-1 THEN b=8:k=9:0=8 
i=1 THEN c=-8:g-8:p=8 


LISTING 


2488 ’IF m=1 THEN d=®:h=8:1=8 
2290 ’ 

2598 IF b=® AND c=1 THEN c=1 

251M IF b=@ AND c=® AND d=1 THEN d- 
1 

252@ IF b=-® AND c=1 AND d=1 THEN d= 
1) 

2530 ’ 

2540 IF f=® AND g=1 THEN g=1 

2550 IF f=® AND g=® AND h=1 THEN h= 
1 

2568 IF fF=® AND g=1 AND h=1 THEN h= 
() 

2570 * 

258@ IF j=® AND k=1 THEN k=1 

2598 IF j=® AND k=@® AND 1=1 THEN 1= 


1 


3 
2688 IF j=® AND k=1 AND 1=1 THEN 1= 


8 

2618 

2628 IF n=® AND o=1 THEN o=1 

2638 IF n=8 AND o=8 AND p=1 THEN p= 
1 

2648 IF n=B AND o=1 AND p=1 THEN p= 
4) 

26580 

2668 u=b+c+td:IF u > 1 THEN u=1 

2678 v=-f+tg+h:IF v > 1 THEN v=ei 

26890 w=j+tk+1l:IF k > 1 THEN w=1 

2698 z=nto+p:IF z > 1 THEN z=1 

2780 g=oteti+tm:r=u+rv+tw+tz 

2710 

2928 IF q=2 AND r=2 THEN SOUND 1,28 


0,28:50UND 1,198,28:SOUND 1,250,2®8: 

SOUND 1,249,29:6G0S5UB 3899:G6G0T0 1958 

2738 IF q=1 AND r=3 THEN SOUND 1,28 

@,28:5O0UND 1,258,28:SOUND 1,248,20: 

SOUND 1,238,28:G05SUB 3128:G0T0O 1858 

27amM IF q=2 AND r=1 THEN SOUND 1,29 

@,20:50UND 1,190,28:50UND 1,259,2®: 

GUSUB 3188:G60T0O 1858 

2758 IF q=1I AND r=2 THEN SOUND 1,28 

®,28:50UND 1,259,2%:S0UND 1,240,28: 

60SUB 3119:60T0 1858 

2768 IF q=1 AND r=1 THEN SOUND 1,28 

8,2@9:SQ0UND 1,2590,28:G0SUB 3138:G0TO 
1959 

2778 

2788 IF q=4 THEN SOUND 1,288,28:50U 

ND 1,198,28:50UND 1,188,28:SOUND 1, 
178,?798:50UND 1,168,28:G0SUB 3598:60 

SUB 3948 

2798 IF q=A4 AND s=48 THEN erg-18:er 

g1$="sehr schwach”:GOTO 2988 

2889 IF q=4 AND s=36 THEN erg=9:erg 
1$="schwach"”:erg2$=" Sie haben eine 

n oder mehrer Denkfehler":erg3$=" 
gemacht" :GOTO 2988 

2818 IF q=4 AND s=32 THEN erg=8:erg 
1$="ausreichend":erg2$="es geht auc 


h besser" :6GOTO 2988 

2828 IF q=4 AND s=28 THEN erg=?7:erg 
1$="ausreichend":erg2$="es geht noc 
h besser”":60T0O 2988 

283@ IF q=4 AND s=24 THEN erg=-6:erg 
1$="befriedigend":erg2$=" weiter so 
":G60T0 2988 

2848 IF q=4 AND s=28 THEN erg=S:erg 
1$="gut”:erg2$=" mit Log 
ik kommt man ans Ziel"”:60T0O 2988 
2850 IF q=4 AND s=16 THEN erg=4:erg 
1$="sehr gut":erg2$=" Sie koene 
n logisch kombinieren” :6GOTO 2988 
2868 IF q=4 AND s=12 THEN erg=3:erg 
1$="augezeichnet":erg2$=" Ihr V 
erstand ist messerscharf”:GOTDO 2988 
2878 IF q=-4 AND s=B THEN erg=2:ergi 
$-"gut":erg2$-" auch mit Glueck k 
ommt man ans Ziel":6G0OTO 2988 

2888 IF q=4 AND s=4 THEN erg=-1:erg! 
$-"gut”":erg2$="reines Glueck" :GOTO 
2998 

2898 GOTO 2918 

2998 GOSUB 3378:G0T0 3718 

2918 IF q=3 THEN SOUND 1,2808, 28:50U 
ND 1,1998,28:SOUND 1,178,28:G0OSUB 38 
38:60T0 1858 

2928 IF q=2 THEN SOUND 1,288,28:50U 
ND 1, 198,28:G0OSUB 3828:G0T0 1858 
2938 IF q=1 THEN SOUND 1,280,28:60S 
UB 3919:G0OT0 1859 

2948 

2958 IF r=4 THEN SOUND 1,258,28:50U 
ND 1,248,28:SOUND 1,238,20:50OUND 1, 
229,28:G05UB 3989:G0T0 1959 

2968 IF r=3 THEN SOUND 1,258,29:50U 
ND 1,249,2®:SOUND 1,230,2®8:G05SUB 38 
79:G0T0 195% 

2978 IF r=2 THEN SOUND 1,258,28:50U 
ND 1,240,28:G0SUB 38698:G0T0 1858 
2988 IF r=1 THEN SOUND 1,258,28:60S 
UB 3959:G0T0 1858 

2998 GOTO 1958 

3988 ” 
3818 ORIGIN 
* is 
3828 ORIGIN x,y:GOSUB 3380:x=x+16:y 
=y+2:O0RIGIN x,y:GOSUB 3388: RETURN 


%*,y:GOSUB 3388 :RETURN 


3838 ORIGIN x,y:GOSUB 3398:x=x+16:y 

=y+2:0ORIGIN x,y:G0OSUB 3388:x=x-16:y 

=y-198:0OHRIGIN x,y:GOSUB 3388: RETURN 

" 3s 

3848 ORIGIN x,y:GOSUB 3389: x=x+16:y 

=y+t2:0RIGIN x,y:GOSUB 3380: x=x-16:y 

=y-18:0RIGIN x,y:605UB 3380: x=x+16: 

y-y+2:0RIGIN x,y:GOSUB 3388 

:RETURAN "As 

3858 ORIGIN x,y:G0OSUB 3298:RETUAN 
"Im 


42 


————————————————— nn —————— 


LISTING 


30868 ORIGIN x,y:GOSUB 3299:x=x+16:y 
=y+2:0RIGIN x,y:GOSUB 3298:RETURAN 
em 
3078 ORIGIN x,y:G60OSUB 3299:x=x+16:y 
=y+2:O0RIGIN x,y:GOSUB 3298: x=x-16:y 
=y-18:0RIGIN x,y:G0OSUB 3298: RETURN 
" 3w 
3888 ORIGIN x,y:G0OSUB 3299:x=x+16:y 
=y+2:0RIGIN x,y:60SUB 3298: x=x-16:y 
=y-18:0RIGIN x,y:605UB 3290:x=x+16: 
y=-y+2:O0RIGIN x,y:G05UB 3298 
:AETURN ’ au 
3898 ORIGIN x,y:GOSUB 3388:x=x+16:y 
=y+2:0RIGIN x,y:G0SUB 3388:x=x-16:y 
=y-18:0RIGIN x,y:GOSUB 3298: x=x+16: 
y=-y+2:0RIGIN x,y:GOSUB 3298 
:RETURN '2s 2 
w 
3188 ORIGIN x,y:60SUB 3389: x=x+16:y 
=y+2:0RIGIN x,y:GOSUB 3389: x=x-16:y 
=y-18:0RIGIN x,y:G60SUB 3298 :RETURN 
‘2s 1m 
311@ ORIGIN x,y:GOSUB 3309: x=x+16:y 
=y+2:0RIGIN x,y:GOSUB 3299: x=x-16:y 
=y-18:0RIGIN x,y:605UB 3298 :RETURN 
" As 2w 
3128 ORIGIN x,y:GOSUB 3389:x=x+16:y 
=y+2:0RIGIN x,y:GOSUB 3299:x=x-16:y 
=y-18:0ORIGIN x,y:GOSUB 3298:x=x+16: 
y=-y+2:ORIGIN x,y:GOSUB 3298 
:RETURN "As 3 
w 
3138 ORIGIN x,y:GOSUB 3380:x=x+16:y 
=y+2:0RIGIN x,y:GOSUB 3298:RETURN 
* As 1m 
31a0 ’### Masterstecker ##* 
3158 ORIGIN x,y:IKREIS,8,4:x=x:y=y- 
2:0RIGIN x,y:FILl. A4:RETURN 
3168 ORIGIN x,y:IKREIS,8,5:x=x:y=y- 
2:O0ORIGIN x,y:FILL. 5:RETURN 
3178 ORIGIN x,y:IKREIS,B,6:x=x:y=y- 
2:0RIGIN x,y:FILi. 6:RETUAN 


3188 ORIGIN x,y:IKREIS,8,7:x=x:y=y- 
2:ORIGIN x,y:FILl. 7:RETURAN 
319@ ORIGIN x,y:IKREIS,8,8:x=x:y=y- 


2:O0RIGIN x,y:FILl. 8:RETURN 

a32a@ ORIGIN x,y:IKREIS,8,9:x=x:y=y- 
2:0RIGIN x,y:FILL 9:RETURN 

3210 ’*### Codestecker *#*# 

3228 ORIGIN x,y:|IKREIS,8, 18:x=x:y=y 
-2:0RIGIN x,y:FILL 18:RETURN 

3238 ORIGIN x,y:IKREIS,8,11:x=x:y=y 
-2:0RIGIN x,y:FILL 11:RETURN 

3248 ORIGIN x,y:IKREIS,8, 12:x=x:y=y 
-2:0RIGIN x,y:FILL 12:RETURN 

3258 ORIGIN x,y:IKREIS,8, 13:x=x:y=y 
-2:0RIGIN x,y:FILL 13:AETURAN 

3268 ORIGIN x,y:IKREIS,8, 14:x=x:y=y 
-2:0RIGIN x,y:FILL 14:RETUAN 

3278 ORIGIN x,y:1KREIS,8, 15:x=x:y=y 


-2:0RIGIN x,y:FILL 15:RETURN 


3288 ’*=#* Chiffrierstecker *** 
3298 ORIGIN x,y:IKREIS,4,3:x=x:y=y- 
2:0RIGIN x,y:FILL 3:RETURN 

33088 ORIGIN x,y:IKREIS,4,15:x=x:y=y 
-2:0RIGIN x,y:FILl. 15:RETUAN 


3318 ’**#+ Zeitschleifen *##** 

3328 FOR t=1 TO 18:NEXT:RETURN 
333@ FOR t=1 TO 58:NEXT:RETURN 
3348 FOR t=1 TO 188:NEXT:RETURN 
3359 FOR t=1 TO 588:NEXT:RETURN 
3368 FOR t=1 TO 1888:NEXT:RETURN 
3378 FOR t=1 TU S5B88:NEXT:RETURN 
33890 ’#*# Kreis *#** 


3398 MEMORY 59999: adr=&AUBB 
3488 READ a$:IF a$="#**" THEN CALL 
GEABBB : RETURN 
3418 POKE adr,VAL( "&E"+a$) :adr=adr+1 
3428 GOTO 3488 
3438 DATA 81,8e,30,21,83,a8,cd,d1i,b 
c,c9,9,8,8,80,13,a80,c3,19,38,4b,52,4 
5,49,d3,88,fe,8,28,23,fe,1,28,22,fe 
‚2,28,f,4b,dd,?e,?,cd,de,bb 
‚dd,5e,4,dd,56,5,18,11,7b,cd,de,bb, 
dd,5e,2,dd,56,3,18,5,11,4e,80,e,8,21 
‚1,8,b?,ed,52 
3448 DATA d®,cb,7a3,c8,d5,fd,e1,dd,2 
1,fe,ff,eb,29,eb,21,3,9,b7,ed,52,eb 
‚dd,23,dd,23,cb,7a,ca,76,a8,dd,eS,e 
1,29,29,19,11,2,8,19,eb,18, 
16,d5,dd,eSö,e1l,fd,e5S,d1,ed,52,29,29 
‚41,19,11,6,8,19,eb,fd,2b,fd,2b,dS, 
dd,eS,di,fd,e5,e1,cd,11,a1,fe,1,28B, 
67,dd,e5,e1,fd,e$, 
3458 DATA 11,a1,fe,2,28,5a,dd,e5,d1i 
‚cd, 18,31,22,0,a2,fd,eS5,d1,dS,e5,cd 
‚11,a1,d1,e1,fe,3,ca,1,al,fd,eS,di, 
cd,18,a1,22,2,a2,dd,eS,di,c 
d,11,31,fe,4,28,2f,ed,5b,88,a2,2a,2 
‚a2 
3468 DATA e5,d5,cd,11,a1,e1,d1,fe,® 
5,28, 1d,d5,cd,11,a1,d1,fe,6,28,14,d 
d,e5S,ei1,cd,11,a1,fe,7,28,a,ed,5b,®, 
a2,fd,e5S,ei1,cd,11,a1,dd,eS, 
e1,fd,e5,d1,23,23,b?,ed,52,d1,da,6® 
‚a8,c9,c5,cd,ea,bb,c1,79,c9,21,8,®, 
b?,ed,52,c9,*#*#* 
3470 '### Schild ein *#*# 
3488 GRAPHICS PEN 8:0RIGIN 92,394:D 
RAW 154,8:DRAW 154,-24:DRAW ®8,-24:D 
RAW 8,8:0RIGIN 96, 392:FILL 1:RETURN 
3498 '#*=* Schild aus **# 
35@98 INK 4,2:INK 5,24:INK 6,9:1INK 
7,6:INK 8,?76:INK 9,8:RETURN 
3518 ’*## Pfeil setzen #*#*# 
3528 GRAPHICS PEN 14:x=x:y=y:ORIGIN 
x,y:DRAW 208,8:y=y+1:ORIGIN x,y:DRA 
W28,0:y=y+1:0RIGIN x,y:DRAW 20,8:y 
=y+1:D0ORIGIN x,y:DAAW 20,8 
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3530 x=x+20:y=y-1:0RIGIN x,y:DRAW - 

8,4:x=x+2:y=y+1:0RIGIN x,y:DRAAW -18 
‚A:rx=x:y=y-3:0RAIGIN x,y:DRAW -18,-4 
Ix=x-2:y=y+1:0RIGIN x,y:DRAA 

W -18,-4:RETURN 

3549 ’### Pfeil loeschen ### 

3559 GRAPHICS PEN 1:x=x:y=y:ORIGIN 
x,y:DRAW 28,8:y=y+1:0RIGIN x,y:DRAW 
20,8:y=y+1:0RIGIN x,y:DRAW 28,8:y= 
y+1:0RIGIN x,y:DRAW 20,8 

3560 x=x+20:y=y-1:0RIGIN x,y:DRAW - 

8,4:x=x+2:y=y+1:0RIGIN x,y:DRAW -18 
‚A:x=x:y=y-3:0RIGIN x,y:DRAW -18,-4 
.x=x-?:y=y+1:0RIGIN x,y:DRA 

W -19,-4:RETURN 

3578 '### Auswertung 18 Versuche ** 

# 

3588 

9 

3598 
L 0 

3600 


MODE 1:INK 1,6:INK 2,28:INK 3, 


PEN 1:L0OCATE 13,2:PRINT "VER 
ARE N" 
GRAPHICS PEN 3:0RIGIN 186,360: 
DRAW 259,8 
3618 PEN 2:LOCATE A,9:PRINT "Sie ha 
ben den Code nicht geknackt" 
36?@® LOCATE 18, 14:PRINT "Versuche : 
"-LOCATE 18, 16:PRINT "Ergebnis :"” 
36308 PEN 1:LOCATE 23, 14:PRINT "18": 
LOCATE 23, 16:PAINT "sehr schwach” 
3648 PEN 2:LOCATE 1,24:PAINT "Moech 
ten Sie ein neues Spiel ?" 
3658 PEN 1:LOCATE 34,24:PRINT "j 
n" 
3668 
36708 
3688 
3698 
3708 
3718 
2 
3728 
9 
3738 
ON 
37408 


PEN 3:LOCATE 
a$=-INKEY$:IF 
IF a$="J3" OR 
IF a$="n” OR 
GUTO 3678 

’#3#%# Auswertung 1-9 Versuche * 


36,24:PRINT "/" 
a$=-"" THEN 3670 
a$="j" THEN 320 
a$="n" THEN 3868 


MODE 1:INK 1,6:INK 2,28:INK 3, 


PEN 1:LOCATE 13,2:PRINT "GEW 
N E N" 

GRAPHICS PEN 3:0RIGIN 186,368: 
DRAW 258,8 

3758 PEN 2:LOCATE 7,9:PRINT "Sie ha 
ben den Code geknackt" 

376® LOCATE 1,14:PAINT "Versuch :" 
:LOCATE 1,16:PRINT "Ergebnis :" 
3778 PEN 1:LOCATE 12,14:PRINT,erg:L 
OCATE 13,16:PRINT,erg1$:LOCATE 1,18 
:PRINT,erg2$:LOCATE 1,21:PRINT,erg3 


$ 
3788 PEN 2:LOCATE 1,24:PRINT "Moech 
ten Sie ein neues Spiel ?"” 


3798 PEN 1:LOCATE 
n"” 

3888 PEN 3:LOCATE 
3818 a$=INKEY$:IF 


34 ,24:PAINT "3 


36 ,24:PRINT "/" 
a$="" THEN 3818 


3828 
3838 
38408 
3854 
e1:1:7.] 


IF a$="3" OR a$="j" THEN 328 
IF a$="Nn" OR a$="n" THEN 3868 
GUTO 3818 

END 

CALL 68 


ENTSTEHUNG UND 
AUFBAU DER ERDE 


Wissen Sie zu wenig von der Entstehung der Erde? 
Wenn ja, dann wird Ihnen dieses Programm weiter hel- 
fen. Es schildert die zwei Theorien der Wissenschaft- 
ler über die Entstehung der Erde sowie den genauen 
Aufbau des Erdballes und vieles mehr. 


STEUERUNG MEHR ALS EINFACH 


Nach dem Laden dieses Programmes unseres Autors 
Thomas Eichele erscheint ein Menü. Dieses Menü zeigt 
eine Auswahl diverser Wissensgebiete. 

Durch Drücken der entsprechenden numerischen Ta- 
sten (von 1 bis 5) gelangt man dann entweder in ein 
Untermenü oder sofort in das ausgewählte Lehrgebiet. 
Durch phantasievolle grafische Darstellung soll ver- 
hindert werden, daß dieses Programm eintönig wirkt. 


opyright hy Thomas Eichele * 


N HUNG UND AUFBAU DER ERD 


>1< Entsteh t ä 
ntstehungs heorien 


»2< len zum 


rdinnern‘ 

ran: 2er Erima.” 

Die Mondausschleuderungs- 
eorie 

Die Plattentektonik 


Uber htst 

a er 
>3< 
>4< 


>5< 


.. Ihre Wahl 


Graphische Darstellung der Mondausschleuderungstheorie 


ve SPACE... 

Noch ein Hinweis: Dieses Programm wurde auf einem 
CPC 6128 geschrieben. Es läuft auch auf einem 664. 
Falls Sie jedoch einen CPC 464 besitzen und das Pro- 
gramm trotzdem laufen lassen wollen, so rät unser 
Autor, die folgenden Zeilen einfach wegzulassen: 
1440, 4590, 4720, 4980, 5080, 5200, 5250, 6210. 
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5 HIRTEN III IH 


ı9 ’* ERDENTWICKLUNG #* 
15 ’# VON * 
28 ’* THOMAS EICHELE %* 
25 ’% FUER * 
39 ’#* SCHNEIDER AKTIV #* 
32 '# CPC 664/6128 JE*# 


35 PRRHRHRRHRRHRHHRRRHRIRHRIRHHHHRITFTN 
48 REM #** Initialisierung *#* 

58 INK 1,24:PEN 1:BORDER 3 

68 SYMBOL AFTER 64 

78 SYMBOL 125,666,618,63C0,666,6?7E,6& 
66,666,8 

88 SYMBOL 123,666,644,666,666,666,6& 
66,63C,8 

98 SYMBOL 93,6CC,8,678,6C,67C,6CC,& 
76,8 

188 SYMBOL 64,666,8,863C,8&66,666,666 
‚E3C,® 

118 SYMBOL 91,8666,8,666,666,666,6&66 
‚E3E,® 

128 SYMBOL 163,&3C,666,666,66C,666, 
666,866C,668 

188 REM *## Haupt - Men[ *## 

198 MODE 1 

288 LOCATE 5,5:PRINT CHRA$(24)"” ENTS 
TEHUNG UND AUFBAU DER ERDE ";CHR$(2 
4) 

218 LOCATE 1,8:PRINT”"M E N {: >1< 
Entstehungstheorien” 

228 PRINT"-------- der Erde” 
225 PRINT:PRINT TAB( 18)">2< {bersi 
chtstabellen zum” 

238 PRINT TAB( 17)” "Aufbau des Erdin 
nern ’"” 

248 PRINT:PRINT TAB( 18) ">3< Grafis 
che Darstellung zum” 

258 PRINT TAB( 17)” "Aufbau des Erdin 
nern’"” 

268 PRINT:PRINT TAB( 18)”">4< Die Mo 
ndausschleuderungs-"” 

278 PRINT TAB( 17) "theorie" 

288 PRINT:PRINT TAB( 18)”">5< Die PI 
attentektonik” 

282 FOR i=1 TO 128 STEP 5 

284 MOVE i,280*1/i*4:DRAW 85,78 

286 NEXT 

288 MOVE 85,78:DRAW 488,08 

289 MOVE 85,78:DRAW 6498,54 

298 LOCATE 25,24:PRINT”.. Ihre Wahl 
291 INK 3,8:PEN#1,3 

295 WINDOW41,7,37,1,1 

297 1=38:1la=-1:1w=29 

299 n$="# Copyright by Thomas Eiche 
le #"” 

388 1=1-1:1la=la+1:1w=1w-1 

318 LOCATE#1,1,1:PRINT#1,LEFT$Cn$, 1 
a) 

328 LOCATE#1,1,1:PRINT#1,RIGHT$(Ln$, 


lw) 

338 IF 1=>1 THEN 1=38:la=-1:1w=29 
358 a$=INKEY$:IF a$="" THEN GOTO 38 
1%) 

368 n=VAL(a$) :IF n<1 OR n>5 THEN GO 
TO 388 

365 PEN 1 

378 ON n GOTO 1818,2818,3818,4910,6 
818 

388 END 


1888 REM *## Entstehungstheorie - Me 
n[ #%# 


1818 MODE 1:LOCATE 5,5:PRINT CHA$(2 
4)" ENTSTEHUNG UND AUFBAU DER ERDE 
";CHR$( 24) 

1828 LOCATE 5,8:PRINT">1< I. Ents 
tehungstheorie"” 

1838 LOCATE 11,1@8:PRINT”der Erde" 
1848 LOCATE 5, 13:PRINT”>2< II. En 
tstehungstheorie” 

1858 LOCATE 11,15:PRINT”der Erde" 
1868 LOCATE 5, 18:PRINT"”>3< Men[ ” 
1878 FOR i=1 TO 48 STEPS 

1888 MOVE i#2,1*1/i:DRAW 5,250*i*#1/ 


10898 MOVE 8,8:DRAW 648, 130+i 

1108 NEXT 

1118 LOCATE 16,22:PRINT”.. Ihre Wah 
” 


1128 WINDOW41,7,37,1,1:PEN#1,3 
1138 1=>-38:la=-1:1w=29 

1148 1=1-1:1a=1la+1:1w=1w-1 

1158 LOCATE#1,1,1:PRINT#1,LEFT$(LnN$, 


1168 LOCATE#1,1,1:PRINT#1,RIGHT$(Ln$ 


1178 IF 1=1 THEN 1=38:1la=-1:1w=29 
1188 a$=INKEY$:IF a$="" THEN 1148 
1198 n=VAL(a$) :IF n<1 OR n>3 THEN 1 


1288 PEN 1 

1218 ON n GOTO 1248, 1548, 198 

1228 END 

1238 REM ## I. Entstehungstheorie *# 


1248 MODE 2 

1258 PRINT TAB(25)"I. ENTSTEHUNGSTH 
EORIE DER ERDE" 

1268 PRINT TAB(24) STRING$( 32, "=") 
1278 RESTORE 1328 

1288 FOR i=4 TO 22 STEP 2 

1298 READ e1$ 

1388 LOCATE 4,i:PRINT e1$ 

1318 NEXT 

1328 DATA "Einige Wissenschaftler s 
ind der Meinung, da# die Erde urspr 

[nglich aus ei-"”,"ner Wolke kosmisc 
hen Staubs bestand und so kalt war, 
wie der Weltraum selbst” 

1338 DATA "(-273,2 Grad C ). Wihren 3® 
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d der Zeit von Millionen Jahren bal 

lte sich diese”,"Wolke zu einer rie 

sigen Kugel zusammen, wodurch der D 

ruck im Innern so grof#"” 

1348 DATA "wurde, daf# sich dieses 6 

ebilde entz[ndete und zu einem einz 

igen Feuerball"”,"auswuchs. Durch we 

iteres Zusammenziehen erh@hte sich 

der Druck und folglich” 

1358 DATA "auch die Temperatur von 

1888 Grad C auf 3888 bis 4888 Grad 

C. Das Entz[nden”,"der Wolke f[hrte 

n die Wissen- schaftler auf eine 

atomare Explosion zur[ck."” 

1368 DATA "Dadurch stieg die Tem- 
peratur im Erdkern auf c 

a. 6888 Grad C an,"”,"”was der Sonnen 

Er oberfl]c 

he entspricht." 

1378 ORIGIN 219,38 

1388 DEG: z=INT( PI*S5QRA( 28) +1) :si=SIN 

( 368/z) :co=COS( 368/z) 

1398 x=20:y=9:MOVE 28,8 

1488 FOR I%=1 TO z 

1418 t=co#tx-sity:y-sitx+tcoty:x=t 

1428 DRAW x,y, 1 

1438 NEXT 

1448 PEN 1:MOVE 1,1:FILL 1 

1458 ORIGIN 118,25 

1468 FOR i=-18 TO 38 STEP 4 

1478 MOVE -50+i,-50+i*2 

1488 DRAW 178+1*1.5,70-1%#1.5 

1498 NEXT 

1588 LOCATE 53,25:PRINT".. SPAC 


1518 IF INKEY$="" THEN 1518 ELSE GO 
TO 1818 

1528 END 

1538 REM ** II. Entstehungstheorie 
## 


1548 MODE 2 

1558 PRINT TAB( 38) "II. 
HEORIE DER ERDE” 

1568 PRINT TAB(29) STRING$( 33, "=") 
1578 RESTORE 1628 

1588 FOR i=5 TO 24 STEP 2 

1598 READ e2$ 

1688 LOCATE 4,i:PRINT e2$ 

1618 NEXT 

1628 DATA "Die andere Gruppe der Wi 
ssenschaftler nimmt an, daf die Erd 
e aus Sonnenma-","terie entstand. 5 
onnenmassen wurden durch eine gewal 
tige Explosion ins Welt-" 

1638 DATA "all hinausgeschleudert, 
wobei diese in Form von Kugeln als 
ellh - fl[ssige”,"Planeten die Sonn 
e umkreisten."” 

1648 DATA "Im Zusammenhang der 2. T 
heorie gibt es noch eine weitere Ve 


ENTSTEHUNGST 


rsion: In der” ,‚"Michstrafe soll es 
Milliarden Sonnen geben, wobei eine 
Nachbarsonne ins An-” 

1658 DATA "ziehungsfeld unserer Son 
ne gelangt sei und im Vorbeiziehen 
grofe Teile un-","serer Sonne herau 
sgerissen habe. Der Teil davon, der 
nicht mitgenommen wurde,” 

1668 DATA "soll im Anziehungsfeld u 

nserer Sonne geblieben un 

d hier zu”,"Planeten geworden sein. 


1678 FOR i=8 TO 14 

1688 MOVE 233-1*8,379:DRAWR 5,8 
1698 NEXT 

1788 ORIGIN 125,378 

1718 FOR i=-38 TO 38 STEP 3 
1728 MOVE i,i*®.2:DRAWA i#1.5,i 
1738 NEXT 

1758 FOR I=5 TO 58 STEP S 

1768 MOVE 125+I*3,-378:DRAW 270-I#1 
.5,-340+1 

1778 NEXT 


1788 LOCATE 68,25:PRINT".. SPAC 
Ei.” 
1888 
1818 
1828 
2888 
n[ *# 

2818 MODE 1:LOCATE 5,5:PRINT CHR$C2 
4)” ENTSTEHUNG UND AUFBAU DER ERDE 
":CHR$( 24) 

2828 LOCATE 5,8:PRINT">1< I. 
sichtstabelle zum" 

2838 LOCATE 11,18:PRINT” "Aufbau der 
Erde ’"” 

2848 LOCATE 5,13:PRINT"”>2< 
ersichtstabelle zum" 

2858 LOCATE 11,15:PRINT" "Aufbau der 
Erde ’" 

2868 LOCATE 5,18:PAINT"”>3< 
2878 FOR i=1 TO 48 STEP S 
2888 MOVE i*#2,i1*1/i1:DRAW 5,250*i*1/ 


CALL &BB86 

GOTO 1818 

END 

REM ## {bersichtstabellen - Me. 


{ber 


II. {b 


Menf[ ” 


2898 MOVE ®,8:DRAW 648, 138+i 
NEXT 
LOCATE 16,22:PRINT".. Ihre Wah 


2128 WINDOW#1,7,37,1,1:PEN#1,3 
1-30: la=-1:1w=29 
1=1-1:la=1la+1: 1w=1w-1 

2158 LOCATE#1,1,1:PRINT#1,LEFT$(n$, 


LOCATE#1,1,1:PRINT#1,RIGHT$CN$ 
IF 1=1 THEN 1=38:1a=-1:1w=29 


a$=INKEY$:IF a$="" THEN 2148 
n=VAL(a$) :IF n<1 OR n>3 THEN 2 


LISTING 


2288 
2218 
2228 
2238 
2248 
ELLE 
2258 


PEN 1 

ON n GOTO 2238,2568, 198 

REM ## I. {bersichtstabelle ## 

MODE 2 

PRINT TAB( 18)"I. {BERSICHTSTAB 

ZUM "AUFBAU DES ERDINNERN’" 

LOCATE 3,4:PRINT "Einteilung 
Unterteilung Tiefe (Km) 

Schichtst]rke Schichtst]rke" 

2268 PRINT TAB( 38) "von - bis" 

J)”Cin Km)";S5PC(8)"in % des" 

2278 LOCATE 67,6:PRINT"Erdradius"” 

2288 LOCATE 22,9:PRINT"Granitschale 

";SPC(6)"bis 15";5SPC(8) "bis 15”";5PC 

(9)"8,2 %” 

2298 PRINT TAB( 25) "(Sial)"” 

2388 PRINT TAB( 3) "Erdkruste"” 

2318 PRINT TAB( 22) "Basaltschale"”;5P 

C( 6) "15-68" ;SPC(9) "bis 45";5PC(9)"@ 

‚8 %" 

2328 PRINT TAB( 25) "(Sima)” 

2338 LOCATE 3, 15:PARINT"Erdmantel”;S 

PC( 18) "Fesimaschale"” ;S5PC( 5) "68-1288 

";SPC(7)"bis 11498”;5SPC(8) "18 %" 

2348 LOCATE 25,17:PRINT"oben :" 

2358 PRINT TAB( 23) "Erzschale” 

2368 PRINT TAB( 3) "Zwischenschicht”; 

SPC( 7) "unten :";S5PC( 6) " 1288-2908”; 5 

PC(6) "bis 1788” ;5PC( 8) "27 %" 

2378 LOCATE 3,28:PRINT”(Kernschale) 

";5PC( 7) "Eisen-Nickel-" 

2388 LOCATE 25,21:PRINT"Schale” 

2398 LOCATE 3,23:PRINT"Erdkern"”;S5PC 

( 13) "Erdkern” ;SPC( 8) "2988-6378" ;SPC 

(6) "bis 3478" ;SPC(8) "54 %"” 

2488 RESTORE 2458 

2418 FOR i=1 TO 6 

2428 READ a 

2438 MOVE a,18:DRAWR 8,348 

2448 NEXT 

2458 DATA 158,285,385,518,625,627 

2468 MOVE 158,231:DRAWR 477,8 

2478 RESTORE 2528 

2488 FOR i=1 TO 9 

2498 READ b 

2588 MOVE 18,b:DRAWR 617,8 

2518 NEXT 

2528 DATA 366,364,298,296, 185, 158,5 

7,28,18 

2538 WHILE INKEY$="":WEND 

2548 GOTO 2818 

2558 REM *## II. 

# 

2568 MODE 2 

2578 PRINT TAB( 18) "II. {BERSICHTSTA 

BELLE ZUM ’AUFBAU DES ERDINNERN’" 

2588 LOCATE 1,4:PARINT"Bestandteile 

Aggregatzu- Dichte Gewi 
cht in Gewicht in Vermutliche" 
2598 PRINT TAB( 25) "stand g/cm 


:SPC(6 


{bersichtstabelle * 


“3 in Trill.t 
n C)"” 

2688 LOCATE 1,8:PRINT"Granit (Si, A 
1) ";SPC( 10) "fest"; ;SPC( 9) "2,7"; :SPC( 8 
J)"18";5PC(8) "8,2 %";SPC(6) "bis 688” 
2618 LOCATE 1,18:PAINT"Basalt, Gabb 
ro-” ;SPC( 8) "fest bis” ;SPC(7) "3, 1";5 
PC( 8) "35"; SPC(8) "8,6 %" ;SPC( 6) "bis 

12989” 

2628 PRINT"magma (5i, Mg)";SPC(9)"a 
morphpl."” 

2638 LOCATE 1,13:PRINT"Magnesium- u 
nd” 

2648 PRINT"Eisensilikate"”;5PC( 11)"a 
morph- 3,8”";SPC(6)” 1788” ;SPC( 
9)"28 %”; :SPC(6) "bis 39998” 

2658 PRINT"(Fe, Si, Mg)";SPC( 11) "pl 
astisch” 

2668 LOCATE 1,17:PRINT"”oben 
2678 PRINT" Erze, Minerale”;SPC( 9)" 
amorph-";SPC(7)”6,4"”;SPC( 6) "2688" ;5 
PC(7)"43,2 %"”; ;SPC( 6) "bis 498008" 

2688 PRINT"unten :”;S5PC( 16) "plastis 
ch” 

2698 PRINT” Nickel u. Eisen" 

2788 LOCATE 1,22:PRINT"Nickeleisen 


% d.Erdgew. Temp.(i 


(NIFE) gasfe@ermig"” 
2718 PRINT"entgaste";SPC( 15)"fFl. - 
fest 9,7" ;SPC( 6) "1788" ;SPC( 9) "2 


8 %";SPC(6) "bis 6080" 


2728 PRINT"Sonnenmaterie";SPC(9) "st 


arre Gase" 

2738 RESTORE 2788 

2748 FOR i=1 T0 7? 

2758 READ a 

2768 MOVE a,6:DRAWR 0,368 

2778 NEXT 

2788 DATA 156,276,343,439,535,635,6 
37 

2798 RESTORE 2848 

2888 FOR i=1 TO 18 

2818 READ b 

2828 MOVE 8,b:DRAWR 637,08 

2838 NEXT 

2848 DATA 366, 364,384,302, 265,216, 1 
51,72,8,6 


2858 WHILE INKEY$="":WEND 

2868 GOTO 2818 

3888 REM *# Grafische Darstellung z 
um "Aufbau des Erdinnern’ ## 

3818 MODE 2 

3028 PRINT"Draufsicht 
308 

3838 DEG:z=INT( PI#SQA( 58) +1) :si=SIN 
( 368/z) :co=COS( 368/z) 

3048 x=58:y=9:MOVE 50,8 

3858 FOR i%=1 TO z-? 

3868 t=co#x-sity:y=-si#x+coty:x=t 
3878 DRAW x,y, 1 

3888 NEXT 
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:":ORIGIN 78, 


LISTING 


3898 
3188 
3 


LOCATE 7,18:PAINT” ” 
MOVE 58,8:DRAW ®8,8:DRAW -28,-4 


3118 
1,8 

3120 
3138 
3148 
3150 
3168 
3170 
PLOT 
3188 
3198 
3208 
3210 
3220 
3230 
3248 
3258 
3268 
3278 
3288 
3298 
3308 
3318 
3320 
3338 
3340 
3358 
3368 
3378 
3388 
3398 
3408 
3418 
3428 
3438 
3440 
3458 
3468 


MOVE -18,-21:DRAW 8,-23:DRAW 1 


ORIGIN 355,288 

DEG 

FOR x%=8 TO 98 
a1=5SIN( x%) :b1=COS( x%) 
a=31*#228:b=b1*198 

PLOT a,b:PLOT -a,-b:PLOT -a,b: 
a,-b 

a=31#*217:b=b1*187 

PLOT a,b:PLOT a,-b 

a=a1#97 

PLOT -a,-b:PLOT -a,b 
a=31#218:b=b1*#188 

PLOT a,b:PLOT a,-b 

a=a1*98 

PLOT -a,-b:PLOT -a,b 
a=a1*219:b=b1*#189 

PLOT a,b:PLOT a,-b 

a=a1*99 

PLOT -a,-b:PLOT -a,b 
a=a1#*118:b=b1*95 

PLOT a,b:PLOT a,-b 
a=-a1#1908:b=b1#93 

PLOT a,b:PLOT a,-b 
a=a1#199:b=b1#94 

PLOT a,b:PLOT a,-b 
a=a1#590:b=b1#95 

PLOT -a,-b:PLOT -a,b 
a=a1*55:b=-b1#47.5 

PLOT a,b:PLOT a,-b 
a=a1#178:b=b1*#153.7 

PLOT a,b:PLOT a,-b 

a=31#79.3 

PLOT -a,-b:PLOT -a,b 

NEXT x% 

ORIGIN 8,0 

PLOT 355, 18:DRAWR 8,95 

3478 PLOT 355,295:DRAWR 8,95 

3488 MOVE 377,291:DRAW 352,238:MOVE 
375,293:DRAW 3598,238:DRAW 378,238: 
DRAW 343, 195:MOVE 368,238:DRAW 341, 
193:DRAW 354, 156:MOVE 352, 154:DRAW 
367,123:DRAW 388, 118:DRAW 385,118 


3498 LOCATE 19, 13:PRINT"Erdoberfl]c 
he" 

3588 LOCATE 69,5:PRINT"Erdrinde"” 
351@ LOCATE 45, 13:PRINT"Innerer" 
3528 LOCATE 47,9:PRINT"”}u#erer"” 
3538 LOCATE 52, 15:PRINT”Kern"” 

3548 LOCATE 53,6:PRINT"Erdmantel"” 
3558 LOCATE 68, 12:PRINT"fest” 

3568 LOCATE 49,28:PRINT"fl[ssig"” 
3578 LOCATE 5,24:PRINT".. SPACE 
3588 CALL &BB86 

3598 GOTO 198 


3688 END 

4888 REM ## Mondausschleuderungsthe 
orie - Men[ *##* 

4818 MODE 1:LOCATE 5,5:PRINT CHA$(2 
4)” ENTSTEHUNG UND AUFBAU DER ERDE 
"-CHR$( 24) 

4828 LOCATE 5,8:PRINT"”>1< 
schleuderungs-"” 

4839 LOCATE 11,18:PRINT"theorie"” 
4848 LOCATE 5, 13:PRINT">2< Graphi 


sche Darstel-"” 
4858 LOCATE 11, 15:PAINT"lung” 


4868 LOCATE 5, 18:PRINT"”>3< 
4878 FOR i=1 TO 48 STEPS 
4888 MOVE i#2,i*1/i:DRAW 5,250*#i#1/ 


Mondaus 


Men[ 


MOVE 8,8:DRAW 648, 130+i*1.6 
NEXT 
LOCATE 16,22:PRINT"”.. Ihre Wah 


WINDOW#1,7,37,1,1:PEN#1,3 
1-39: la=-1:1w=29 
1=-1-1:l1a=la+1:1w=1w-1 
LOCATE#1,1,1:PARINT#1,LEFT$(En$, 


LOCATE#1,1,1:PRINT#1,RIGHT$(n$ 


IF 1=1 THEN 1=38:la=-1:1w=29 
a$=INKEY$: IF a$="" THEN 4148 
n=VAL(a$) :IF n<1 OR n>3 THEN 4 


PEN 1 

ON n GOTO 4248,4768, 198 

END 

4238 REM #** Die Mondausschleuderung 

stheorie ## 

4248 MODE 2 

4258 PRINT TAB( 27) "DIE 

HLEUDERUNGSTHEORIE” 

4268 PRINT TAB(26) STRAING$( 37,"=") 

4278 RESTORE 4328 

4288 FOR i=5 TO 21 STEP 2 

4298 READ mo$ 

4388 LOCATE 4,i:PRINT mo$ 

4318 NEXT 

4328 DATA " Der Pazifische Ozean b 

edeckt etwa 1/3 der gesamten Erdoabe 

rfl]che und bil-"”,"det mit einer mi 

ttl. Tiefe von 43088 m (in Randgebie 

ten mehr als 18888 m tief)" 

4338 DATA "eine riesige Mulde. Dies 

e Gegebenheit f[hrte zu folgender A 

nnahme: ” 

4348 DATA "Ein Riesenmeteor hat die 
Erdkruste durchschlagen (Bild 1-2) 
und eine rie-"”,"sige Explosion her 

vorgerufen (Bild 3), die grofe Teil 

e der Erdkruste und "” 

4358 DATA "sogar des Erdmantels in 

den Weltraum hinausgeschleudert hat 


MONDAUSSC 
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a NE En Eee main TEL. TEE DAR Be nr 6 So nd EEE TEE nennen 


LISTING 


. Dort ballten”,"sich diese Massen 
zu einer Kugel zusammen, die dann e 
rkaltete und zu unserem" 

4368 DATA "Mond wurde (Bild 4). Die 
ser Massenverlust der Erde soll zur 
Verlagerung der"”,"Erdachsen gefl[hr 
t haben.” 

4378 FOR i=1 TO 168 STEP 6 

4388 MOVE i,488:DRAW i/2,328+i\2 

4398 ORIGIN 588,378 

44088 PLOT i,-i/36*i/36*i/36 


4418 PLOT i*#1.1,-i1/36*i/36*1/36 
4428 PLOT i*1.2,-i1/36*i/36*i/36 
4438 ORIGIN 8,8 

4448 NEXT 

4458 FOR i=7 TO 11 STEP 2 

4468 MOVE i*#25,8:DRAW 640,75 

4478 NEXT 

4488 LOCATE 58,25:PAINT”..Fortsetzu 
ng ... Space .... 


4498 CALL &BBB6 
4588 MODE 2:PRINT TAB( 28) "DIE MOND 
AUSSCHLEUDERUNGSTHEORIE -- 2 --"” 


4518 PRINT TAB(27) STRAING$(A42,"”=") 
4528 RESTORE 4578 

4538 FOR i=6 TO 16 STEP 2 

4548 READ m2$ 

4558 LOCATE 4,i:PRINT m2$ 

4568 NEXT 

4578 DATA "Die Folge :”,"Die in jen 


er Zeit zusammenh]ngenden Kontinent 
e der Erde wurden auseinander-"”,"ge 
rissen und entfernten sich fortlauf 
end voneinander, um das verlorene" 

4588 DATA "Gleichgewicht wieder her 
zustellen, das auch heute noch nich 
t erreicht ist."”,”","”-- Weitere Inf 
ormationen siehe auch ’Die Plattent 
ektonik’ --"” 

MASK 6X1181811 
FOR i=1 TO 488 
ORIGIN 158,358 
m=LOG( 1/i) :PLOT i,m*#? 

ORIGIN 148,378 

PLOT i,m*#6 

ORIGIN 178,368 

PLOT i,m#5 

ORIGIN 258,58 

MOVE m#28,1/5:DRAWR 1/i*4,-i/2 
NEXT 

LOCATE 45,22:PRINT"”. ss ae 
.S5PACE.. 5. 

4718 WHILE INKEY$="":WEND 

4728 MASK E&X11111111 

4738 GOTO 4818 

4748 END 

4758 REM ## Graphische Darstellung 

der Mondausschlieuderungstheorie ## 

4768 MODE 2 

4778 PRINT:PRINT TAB( 15) "Graphische 


STEP 2 


Darstellung der Mondausschleuderun 


 gstheorie"” 


4788 
4798 
4888 
4818 
4828 
4838 
PLOT 
4848 


4858 
PLOT 


4868 
4878 
PLOT 
4860 
4898 
PLOT 
A988 NEXT 

A918 LOCATE 12,13:PRINT CHRA$( 24) "1" 
CHA$( 24) 

4928 ORIGIN 158,258 
4938 FOR i-® TO 98 
4948 MOVE 8,8 

4958 a-SIN(i)*5:b-COS(i)*5 

A968 DRAW a,b:DRAW -a,-b:DRAW -a,b: 
DRAW a,-b 

4978 NEXT 

A988 MASK 6X1819101 

4998 FOR s=5 TO 28 STEP 5 

5888 MOVE 18,7+s/5:DRAW 68-5/5,45+5s 
5818 NEXT 

5828 LOCATE 26,28:PRINT CHR$( 24) "2" 
CHA$( 24) 

5838 ORIGIN 225,112 

5858 FOR s=5 TO 28 STEP 5 

5868 MOVE 8,8:DRAW 68-s/5,45+s 

59878 NEXT 

50888 MASK &X11111111 

5898 MOVE -6,24:DRAWR -2,-12:DRAWR 
8,-16:DRAWR 5,8:DRAWA 6,-4:DRAWR 14 
‚-B8:DRAWA 3,8 

5188 LOCATE 49,13:PRINT CHA$( 24) "3" 
CHR$( 24) 

5118 ORIGIN 415,222 

5128 MOVE -6,24:DRAWA -2,-12:DRAWA 
8,-16:DRAWR 5,8:DRAWA 6,-4:DRAWR 14 
‚-8:DRAWR 3,8 


PRINT TAB( 14) STRING$(56,"=") 
DEG 

FOR x%=-8 TO 98 

ORIGIN 98,288 

a=5IN( x%) #55:b=COS( x%) #58 
PLOT a,b:PLOT -a,-b:PLOT -a,b: 
a,-b 

ORIGIN 288,98 

PLOT a,b:PLOT -a,-b:PLOT -a,b: 
a,” 

ORIGIN 398,288 

PLOT a,b:PLOT -a,-b:PLOT -a,b: 
a,-b 

ORIGIN 588,98 

PLOT a,b:PLOT -a,-b:PLOT -a,b: 
a,-b 


STEP 9 


5138 LOCATE 53, 18:PRINT” ":LOCATE 5 
6, 12:PAINT" "” 

5148 DEG:ORIGIN 448,237 

5158 FOR m=® TO 98 STEP 108 

5168 MOVE 8,8 

5178 a=SIN( m) #16:b=COS( m) #16 

5188 DRAW a,b:DRAW -a,-b:DRAW -a,b: 
DRAW a,-b 

5198 NEXT 

5288 MASK &X1018181 

5218 MOVE 3,-28:DRAWA -23,19:MOVE - 


28,8:DRAWR 18,-18 
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LISTING 


5228 FOR ms=5 TO 58 STEPS 

5238 MOVE -S5+ms/ 18-25, +12-ms/4-14:1[ 
RAW @+ms/1.4-28,48-ms#1.1-5 

5248 NEXT 

5258 MASK &6X11111111 

5268 ORIGIN 525,112 

5278 LOCATE 63,28:PRINT CHRA$( 24) "4" 
CHR$( 24) 

5288 LOCATE 67,17:PAINT” ":LOCATE 
68, 18:PRINT” ":LOCATE 69, 19:PRINT” 


5298 MOVE 2,21:DRAWR 6,-12:DRAWR 8, 
-18:DRAWR 11,-7 


5388 ORIGIN 685, 178 

5318 FOR M=8 TO 98 STEP 6 

5328 MOVE 8,8 

5338 a=SIN(M) #12:b=COS( M) #11 

5348 DRAW a,b:DRAW -a,-b:DRAW -a,b: 
DRAW a,-b 

53598 NEXT 

5368 LOCATE 1,25:PRINT".. Space ... 
5378 CALL 6BBB6 

5388 GOTO ABI1B 

5398 END 

6888 REM *# Die Plattentektonik ## 
6818 MODE 2 

6828 PRINT TAB(27)"DIE PLATTENTEKT 


ONIK -- 1 --" 

6838 PRINT TAB(26) STRING$(C31,"=") 
6848 RESTORE 6898 

6858 FOR p=5 TO 21 STEP 2 

60868 READ p$ 

6878 LOCATE 4,p:PRINT p$ 

6888 NEXT 

6898 DATA "Zur Entstehung der Erde 
spielt die Plattentektonik noch heu 
te eine erheb-","bliche Rolle. Nach 
der Theorie Alfred Wegeners sagt d 
iese aus, daf die Erd-"” 

6188 DATA "kruste mit dem obersten 
Mantel (die Lithosph]re), 78 bis 18 
8 km m]Jchtig,"”,"aus einzelnen Platt 

en besteht. Im darunterliegenden Be 
reich des oberen Man-"” 

6118 DATA "tels bilden sich Str@mun 
gen, da aus der Tiefe st]ndig stark 
erhitztes Ma-"”,"terial nach oben s 
teigt, w]Jhrend das abgek[hlte und d 

eshalb schwerere Mate-"” 

6128 DATA "rial nach unten sinkt. S 

o wird stjndig neuer Boden gebildet 
(Ozeanb@den,","z.B. durch Vulkanau 
sbr[che) oder in den Tiefseegr]ben 

die ozeanische Kruste" 

6138 DATA "’verschluckt’ u. 
rn wieder aufgeschmolzen."” 

6148 ORIGIN 288,26 

6158 DEG: z=INT( PI#SQA( 28) +1) :si=56IN 

( 368/z) :co=COS( 368/z) 


im Inne 


6168 
6178 


x=24:y=@8:MOVE 24,8 
FOR i%=1 TO z 


6188 t=co*x-sity:y-sitx+tcoty:x=t 
6198 DRAW x,y, 1 

6288 NEXT 

6218 MOVE 1,1:FILL 1 

6228 ORIGIN 8,8 

6238 FOR i=15 TO 48 STEP 18 

6248 MOVE 288,58:DRAW 258+i,-8+i/2: 
DRAW 648,45+i 

6258 NEXT i 

6268 LOCATE 48,25:PRINT" .. Fortset 
zung .. SPACE..." 

6278 CALL EBBB6 

6288 MODE 2 

6298 PRINT TAB(21)"DIE PLATTENTEKT 
ONIK -- 2 --" 

6388 PRINT TAB( 28) STRING$( 36, "=") 
6318 RESTORE 6368 

6328 FOR p=5 TO 21 STEP 2 

6338 READ p$ 

6348 LOCATE 4,p:PRINT p$ 

6358 NEXT 

6368 DATA "Verhaken sich Platten,fl 


hrt dies zu Spannungen, die sich in 
Erdbeben ent-"” 
6378 DATA "laden. Dadurch k@nnen si 
ch die aneinandergrenzenden Platten 
verschieben."”,"Die wichtigsten Pla 
tten namentlich: Afrikanische, Pazi 
fische, Amerikanische, ","Eurasische 
‚„ Antarktische." 
6388 DATA "Weiterhin besagt die The 
orie, da# die Kontinente und Ozeane 
nicht von An-"”,"fang an so [ber di 
e Erde verteilt waren wie heute, so 
ndern sich langsam aus-" 
6398 DATA "einanderbewegten: Die Ko 
ntinente, bestehend aus dem leichte 
n ’SIAL’-Gestein”, "schwimmen wie Ei 
sberge im schweren, plastischen Unt 


ergrund, dem ’SINA’ --" 
6488 DATA "siehe ’I. {bersichtstabe 
lle’ --." 


6428 ORIGIN 525,370 

6438 DEG: z=INT( PI#SQA( 28) +1) :si=SIN 
( 368/z) :co=COS( 368/z) 

6448 x=24:y=8:MOVE 8,8 

6458 FOR i%=1 TO z 

6468 MOVE 8,8 

6478 t=co#x-sity:y-sitx+tcoty:x=-t 
6488 DRAW x,y, 1 

6498 NEXT 

6588 ORIGIN 288, 18 

6518 FOR i=1 TO 488 STEP 3 

6528 e=LOG(i) 

6538 PLOT i,e*8:PLOT i,e*8+i/28 
6548 NEXT 

6558 LOCATE 48,25:PRINT ".. Fortset 
zung .. SPACE..." 
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TE Ö6ö—_öö__Oo+ 21: :  fö , 2 


LISTING 


6568 CALL 6&BBB6 

6578 MODE 2 

6588 PRINT TAB(25)”"DIE PLATTENTEKT 
ONIK -- 3 -—-" 

6598 PRINT TAB(24) STRING$(31,"”=") 
6688 RESTORE 6658 

6618 FOR p=5 TO 13 STEP 2 

6628 READ p$ 

6638 LOCATE 4,p:PRINT p$ 

6648 NEXT 

6658 DATA "Dieses Driften kommt vor 


allem durch die Rotation der Erde 
zustande. Ein”,"Beispiel dieser For 
tentwicklung zeigen die Kontinente 
Afrika / S[damerika”,"und Europa / 
Afrika. Durch Forschungen hat sich 
ergeben, daf diese urspr[ng-"” 

6668 DATA "lich nicht auseinanderla 
gen, da an ihren Grenzstellen die g 
leichen Steine”,"und Mineralien gef 
unden wurden.” 

667® ORIGIN 2608, 188 

6688 FOR i=-8 TO 5588 STEP 198 

6698 DRAW COS(i) *#i#PI/4B8,SIN(li) *i*Pp 
1/1808 
6708 
6718 
6720 
E. 6% 
6738 CALL &BB96 
6748 GOTO 198 
6758 END 


WER IST GUT IM 
KOPFRECHNEN 


Diese Frage ist weniger an unsere älteren Leser gerich- 
tet, sondern eher an die Erstklässler und Grundschü- 
ler unter uns. Unser Leser Ernst Andres entwickelte 
ein Programm, das sich speziell an diese Altersgruppe 
wendet. Das Programm ‚‚Wer ist gut im Kopfrech- 
nen?‘ dient zum Üben von Rechnungen. Man kann 
zwischen drei verschiedenen Schwierigkeitsgraden 
wählen. Der erste behandelt die vier Grundrechenar- 
ten mit den ersten zehn Zahlen. Der zweite geht ein 
bißchen höher, er behandelt etwa die Zahlen 1 bis 20. 
Der dritte und schwierigste Grad behandelt dann die 
hohen Zahlen bis 100 und höher. Das Programm ent- 
wickelt die einzelnen Aufgaben selbst. Nach Pro- 
grammstart kann man die Grundrechenart wählen, 
welche das Programm abfragen soll. Danach muß der 
Schwierigkeitsgrad (1—3) eingegeben werden. Das 
Programm entwickelt nun 10 unterschiedlichen Auf- 
gaben und gibt diese auf dem Bildschirm aus. Nach je- 
der Ausgabe muß man das Ergebnis eingeben, wel- 
ches anschließend vom Programm überprüft wird. 
ist dann gibt es einen Fehlerpunkt, und ein „trauriges 
(CHRS(224)) ausgegeben. Wenn das Ergebnis falsch 
ist, dann gibt es einen Fehlerpunkt und ein ‚‚trauriges 
Gesicht‘ (CHRS(225)) zeigt sich auf dem Bildschirm. 
(Fortsetzung auf Seite 53) 


NEXT i 
DRAW 464,18 


LOCATE 68,24:PRINT".. SPAC 


10 RR IHHIHIHIIESESESESE SS HEIEN 
20 ’* WER IST GUT IM KOPFRECHNEN *# 
30 ’* VON # 
a0 ’#* ERNST ANDRES #* 
so ’# FUER * 
60 ’* SCHNEIDER AKTIV * 
70 # CPC 464/664/6128 tb* 
[a [0 Ba 2 = = 2 2 2 202 222 2 22020220222 202222202 2:20 


120 INK 0,1:MODE 1:BORDER 3 

130 a$="WER IST GUT IM KOPFRECHNEN 
7":x=20:y=155:xr=2.7:yr=10:p=1:v=D 
140 PEN p:PRINT a$:LOCATE 9,23:PRIN 
T" (ce) 1987 Ernst Andres , Waldstr 
asse 6 6601 Kleinblitter 
sdorf"” 

150 PLOT 1,135:DRAW 640, 135:PLOT 1, 
140:DRAW 640, 140:PLOT 1,265:DRAW 64 
0,265:PLOT 1,270:DRAW 640,270 

160 FOR n=384 TO 400 STEP 2 

170 FOR i=-1 TO LEN(a$)*#16 STEP 2 
180 IF TEST(i,n)<>p THEN 200 

190 FOR r=0O TO xr-1:PLOT r+x,y,p:DR 
AWR O,yr,p:NEXT 

200 x=x+xr:NEXT i 

210 x=x-LEN(a$) #8*xr+vVv:y=y+yr:NEXT 
220 

230 

240 WINDOW#1,2,39,2,3:WINDOW#3,2,39 
‚23,24:WINDOW#0,2,39,6,20 

250 WINDOW#4,1,40,1,4:WINDOW#5, 1,40 
‚5,21:WINDOW#6,1,40,22,25:FOR n=4 T 

0 6:PEN#n,9:NEXT 

260 DEFINT a-z:DIM 0o(20) ‚u( 20) 

270 0o$=CHRA$( 150) +5STRING$( 38, CHR$( 15 

4)) +CHR$( 156) :u$=CHRA$( 147) +5TAING$( 

38, CHR$( 154) ) +CHR$( 153) :m$=CHRA$( 149 
) +SPACE$( 38) +CHRA$( 149) 

280 FOR n=4 TO 6:PRINT#n,0$; :NEXT 
290 FOR n=1 TO 2:PRINT#4,m$; :NEXT:P 

ARINTfA,u$; 
300 FOR n=1 
PRINT#5,u$; 
310 FOR n=1I 
RINT#6,u$; 
320 BORDER 9:PAPER 0 
330 

340 PRINT#1,"” 
Generator 

henarten + -. 
350 CLS#0:CLS#3 

360 PRINT#A3," 

> einsetzen -—"” 

370 WINDOW#7,3,38,9,14 

380 PRINT47,STRING$( 36,”*"); 

390 PRINT#7,"* Rechenzeichen (+-.:) 
";TAB( 36) "*"; 

400 PRINT4A7,"* Schwierigkeitsgrad ( 
1,2,3)"”; TAB( 36) "*"; 


TO 15:PRINT#5,m$; :NEXT: 


TO 2:PRINT#6 ,m$; :NEXT:P 


Rechenaufgaben - 
fuer die Grundrec 


- Werte in < MENUE 
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LISTING 


410 PRINT#7,STRING$( 36, ”"*"”) 
420 1LOCATE#7,30,2:PRINT#7,CHRA$( 243) 
; :INPUT#7," ";zei$ 
430 LOCATE#7,30,3:PRINT#7 ,CHR$( 243) 
;:INPUT#7," ";lev$ 
A440 LOGATE#0,2,15:PAINT#0O, "Dein Vor 
name: "; :INPUT#0,"",name$ 
ASO CL54I 
A460 PRINTAF1," Grundrechen 
7598 "zei," # ";:PRINTAI,"” 
; Schwierigkeitsgrad:";" * ";]lewv 
Pa | Ber 1 
E) 


WINDOW#2,31,39,6,19 
C1.5#0:C1L542:CL543 

r-0:f=0O 

500 0o$=CHR$( 150) +STRING$( 7, CHRA$( 154 
I) +CHA$( 156) :u$=CHR$( 147) +STAING$E 7 
‚ EHR$E 154) ) +CHRAS$L 153) :m$=CHRA$L 149) + 
SPACFE$L7) +CHRA$C 149) 

510 PRINT#2,0$; 

520 FOR n=1 TO 12:PRINT#2,m$; :NEXT: 
PRINT#2,u$; 

530 PLOT 553, 115:DRAWR 0,185:PLOT 5 
10,286:DRAWR 80,0 

540 LOCATC#2,3,2:PRINT#2,"R" 

550 LOCATE#2,7,2:PRINT#2,"F" 

560 FOR i=1 TO 10 

570 ’ 


580 


’ aufgaben bilden (s. unterprog 


600 GOSUB 810 

610 LOCATE#0,5,i+2 

620 PRINT TAB( 2) USING" ##" ;i; :PAINT"” 
.)"; 

630 PRINT TABEF)USING"A#";num(i);:P 
ARINT TAB( 10) zei$(i); 

640 FRINT TAB 12) USING" ##";ope(i); 
650 PRINT T1AB( 15)"="; 

660 INPUT" ";inli) 

670 IF zei$=-"+"THEN GOSUB 
680 IF zei$="-"THEN GOSUB 
690 IF zei$="."THEN GOSUB 1190 

700 1F zei$=":"THEN GOSUB 1320 

710 LOCATE#O,24,15:PRINT#0, "Summe :" 
; :PRINT#0,CHR$( 32) ; :PRINTA#O,USING"# 
#4" ;r; :PRINT#0,CHR$( 32) ; CHR$( 149) ; :p 
AINT#O,USING" AA" ;F 

720 NEXT 

730 IF r=10 THEN 740 ELSE 760 

740 PRINTA3," "name$;” Du bis 
t spitze ! ";CHA$( 224) 

750 FOR t=1 TO 6000:NEXT:GOTO 780 
760 PRINT#3," "name$;" Du hast leid 
er ";CHRA$( 243) ;F;CHRA$(2A2);" Fehl 
er” " gemacht ! ";CHR$( 225 
) ;CHR$L 32) ; CHRA$C 225) ; CHA$L 32) ; CHR$C 
225) 


960 
1080 


770 FOR t=1 TO 6000:NEXT 

780 GOSUB 1340 

790 i$=LOWER$( INKEY$) :IF i$="n" THE 
N 480 ELSE IF i$="m"” THEN 350 

800 GOTN 790 

810 zei$(i)=-zei$ 

820 IF zei$="+" THEN GOTO 890 

830 IF zei$="-" THEN GOTO 1000 

840 IF zei$-"." THEN GOTO 1120 


850 1F zei$=":" THEN GOTO 1230 

B60 ° - ----- = -- - - -- -- 2 nn 
870 ’° addieren 

880 ON naar ass) ann ned, Ta m lub ade aa era a a a aa ar Ge a a aa 


890 num( i)-=INT( RND( TIME) *100) :IF le 
v$="1" AND num(i)>10 THEN 890 

900 IF lev$="2" AND num( i) >50 THEN 
890 

910 IF lev$="3" AND num( i)>100 THEN 
890 

920 ope(i)=INT( RND( TIME) #100) :IF le 
v$="1" AND ope( i)>10 THEN 920 

930 IF lev$="2" AND ope(i)>20 THEN 
920 

940 

920 

950 RETURN 

960 IF in(i)=num( i) +ope( i) THEN 1360 
ELSE 1370 

970 


IF levw$="3" AND ope(i)>50 THEN 


Te m na ae a a 


980 ° subtrabieren 

990 
1000 num( i) =INT( AND( TIME) #100) :IF 1 

ev$="1" AND num( i)>10 THEN 1000 
1010 TF lev$="2" AND num( i)>50 THEN 
1000 

1020 TF lev$="3" AND num( i)>100 THE 

N 1000 

1030 opel i) =INT( AND( TIME) #100) ::IF 1 

ev$="1" AND ope(i)>10 THEN 1030 
1040 IF lev$="2" AND ope(i)>20 THEN 
1030 

1050 IF lev$="3" AND ope(i)>50 THEN 
1030 

1060 erg(li)=num( i)-opeli):IF ergli) 

<D THEN 1000 

1Nn7?0 RETURN 

1080 IF in(i)=num(i)-ope(i)THEN 136 

0 ELSE 1370 

1090 

1100 ° 

1110 


nn nn an an ca 


multiplizieren 


m m u 


ev$="1" AND num( i)>10 THEN 1120 
1130 IF lev$="2" AND num( i)>20 THEN 
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1120 
1140 IF lev$="3" AND num(i)<10 OA n 
um( i)>20 THEN 1120 
1150 ope(i)=INT(AND( TIME) *100)::IF 1 
ev$=-"1" AND opel i)»10 THEN 1150 
1160 IF lev$=-"2" AND opeli)>10 THEN 
1150 
1170 IF lev$="3" AND ope(i)<10 OR o 
pe(i)>20 THEN 1150 
1180 RETURN 
1190 IF in(i)=num(i)*ope(i)THEN 136 
0 ELSE 1370 
1200 ’ ----------------=---- 7 - 
1210 
1220 
1230 num( i) =INTERND( TIME) *100) :IF 1 
ev$="1" AND num( i)>25 THEN 1230 


dividieren 


1240 IH lev$="2" AND num( i)>50 THEN 
1230 

1250 IF lev$="3" AND num( i)>100 THE 

N 1230 


1260 ope( i) =INT(RND( TIME) *50) :IF le 
v$="1" AND ope(i)<2 OR ope(i)>10 TH 
EN 1260 

1270 IF lev$="2" AND ope(i)<4 OR op 
e(i)>10 THEN 1260 

1280 IF lev$="3" AND ope(i)<6 OR op 
e(i)>10 THEN 1260 

1290 erg(i)=FIX(num(i)/ope(i)):IF e 
re(i)<2 OR ergli)>50 THEN 1230 

1300 IF num(i)-(erg(li)*ope(i))>DO TH 
EN 1230 

1310 RETURN 


1320 IF in(i)=erg(i)THEN 1360 ELSE 
1370 

1330 ° ----- -- -- ----- -- --- -- -- - -- -- 
1340 PRINT#3," <N> Neustart mit a 
nderen Zahlen <M> Menue 


1350 RETURN 

1360 LODCATE#2,3,3+1:PRINT#2,CHR$( 22 
4) :r=r+1:RETURN 

1370 LOCATE#2,7,3+i1:PRINT#2,CHR$( 22 
5) :f=f+1:RETURAN 


KOPFRECHNEN 


(Fortsetzung von Seite 51) 


Nach den zehn Aufgaben teilt einem das Programm 
die Fehlerzahl mit und man kann wählen, ob die 
Grundrechenart nocheinmal geprüft werden soll. 
Verneint man, dann startet das Programm von neu- 
em. ‚Wer ist gut im Kopfrechnen?“ läuft auf allen 
drei Schneider Computern mit oder ohne Disketten- 


SCHNEIDER 
AKTIV 
DASBLATT — 
DAS 
KEINS VOR 
DEN 
MUND NIMMT 


wir 
HABEN 
LIEBER 
EINE 
MEINUNG! 
STATT 
ANZEIGEN 


Fr. E. PR. O. 


Ein gewaltiger Vulkan ist im Inneren des Mount _ 
Leone ausgebrochen. Durch die gewaltige Explosion 
überrascht, wurden viele Bergleute in den labyrinth- 
ähnlichen Minen und Gängen eingeschlossen. Sie war- 
ten verzweifelt auf Hilfe. Treten Sie dem ‚‚Corps Of 
Helicopter Emergency Rescue Operation“ bei und 
versuchen Sie, Ihre Kameraden aus dem Innern des 
Berges zu befreien. 

Die waghalsige Expedition wird durch Spinnen, Mon- 
ster, herabtropfende Salzsäure, glühende Felsvorsprün- 
ge und viele andere Hindernisse erschwert. 

H.E.R.O. ist ein packendes Abenteuer, bei dem der 
kleinste Fehler zum Verhängnis werden kann. Das 
Spiel wird mit den Cursor-Tasten gesteuert. Nach der 
Landung können Sie bei Betätigung der Cursortasten 
nach unten eine Bombe setzen, die Ihnen dann den 
Weg freisprengt. 

Haben Sie ein eingeschlossenes Männchen gerettet, so 
wird Ihr übriggebliebener Sauerstoffvorrat als Punkte 
verrechnet und Sie kommen in das nächste Level. 
Insgesamt sind fünf Level vorhanden. 


laufwerk. (TB) 


a | } 
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RRARTERENT 


REIS SSERHEH ER ENE ‚255,255 

* HERO * 33 SYMBOL. 42,0,255,255,0,255,0,255, 
* VON * 255 

* LARS FICHTNER * 34 SYMBOL 64,16,0,1,148,1,0,88,25 
* FUER ® 

ö SCHNEIDER AKTIV % 35 SYMBOL 60,6,47,63, 127,255, 127,12 
K CFC 464/664/6128 tb* 7,63 

ERNEUERT TENNRELRARBENBRGERUERERUCH 36 SYMBOL 62,192,236,254,255,255,25 
1 SYMRO: AFTER 3° °5PEED INK 100,20: 4,252,254 

SPEED WAITE 1:MODE. 1:CALL &BB4AB 37 SYMBÜUL 97,255,255,127,127,63,63, 
2 REM VARIABLEN 126,8 

3 DIM name$( 4), score(4),h(24):h=-400 38 SYMBOL 47,255,254,252,254,255,25 
10) 4,736,228 
4 ma$=CHA$C 8) HCHRA$( B) +CHR$C22) +CHA$ 39 5YMBOI. 255,255,255,255,255,25 
EI) +CHASL 15) +CHR$C 10) +CHRA$C130)+CHR 5,714,18 
$U15I+CHR$L 12) +CHRSCB) +CHR$CI3I)+CH 40 SYMBOL 63,2755,255,255,255,255, 12 
R$C 15) HCHR$L 11) +CHA$C 8) +CHRA 7,54,4 
$L 132) +CHRA$SL22) +CHRA$LO) 41 SYMBOL 40,63, 127,255,255, 127,63, 
5 a i=-0 TO 3:name$( i)="lars”:scor 127,63 
e(i)=h:h=h-500:NEXT i:name$(4)="?7?7?7 a2 SYMBOL. 41,127,127,63,255,63, 127, 
ae -0 255,63 
6 %=4:Y=6:le=5:po=1: joystick=1:poi= 43 GYMBUL. 45,252,254,255,252,754,25 
O:LEVEL=1I :ze=0:kK=-0:sc=0:tx=0:ty=0 4,252,252 
7 REM MUSIC 44 SYMBOL. 43,752,254,252,254,255,25 
8 ENV 1, ‚- 1,25 5,754, 252 
9 ENT 1 s ‚as, 5, 9,-10,15 45 SYMBOL 100,255,255,255,255,255,2 
10 ENV 3, 15, 1, 1 ‚3, -1,1,1,0,10,12,-1 65,255,255 

‚B:ENT 3,20, 5, 1 ‚20, 5, 1, ‚20, 5,1,20,5, A6G 5YMBOl. 94,0,0,56,124,146,146,0,0 
1,20,5,1 47 SYMBOL 102,255,255,255,255,255,2 
11 REM COLOR FARBEN 55,255,265 

12 BORDER U:INK 0,0 :INK 2,8:INK 1, 48 SYMBOL 103,255,255,255,255,255,2 
26:INK 15,26 :INK 14,0,24:1NK 9,18: 55,255,255 


INK 12,18 49 5YMBOL. 163,0,0,0,0,255,255,255,2 
13 INK 5,3 55 

14 REM UVEBERSCHRIFT 50 SYMBOL 200,0,0,0,249, 136, 136, 136 
15 GOSUB 328:MODE 0O:INK 1,24 ‚249 

16 PEN 3:LOCATE 7,1:PRINT"H.E.R.O" 51 5YMBOL 201,0,0,0,18,161,64,160, 1 
17 FLOT 180,375,4:DRAW 420,375 6 

18 PILOT 180,380,4:DRAW 470,380 52 SYMROL 202,0,0,0,39,68,132,132,19 
19 REM Textzeichen aendern 35 

20 SYMROI. AFTER 32 53 SYMHOL 203,0,0,0,207,8,206,72,20 
23 SYMBOL 121,60, 126,219,219,126,36 7 

‚0,60 54 5YMBOI. 704,0,0,0, 153,25,21,19,14 
22 S5SYMROL 120,0,0,0,36,66,36,0,0 7 

23 SYMBOL 166,15,9,9,31,56,48, 112,9 55 SYMEOI 25,0,63,31,15,127,15,31, 
6 15 

24 5YMBOI. 167,0,60,60,60,724,60,24,6 56 S5YMBNI. 123,190, 190,190, 190,255,1 
0 27,55,4 

25 SYMBOL. 33,31,4,52,20,52,60,44,72 57 SYMBOL 44,93,73,107,8,62,62,62,6 
26 SYMBOL 35,48,48,48,48,24,24,8,B 2 

27 SYMBOL 36,48,48,48,48,24,28,48,3 58 SYMBOI 130,0,4,0,0,0,32,86, 140 

2 59 SYMBOL 131,0,0,0,6,6,6,0,0 

2B SYMBOL. 37,248,32,44,40,44,60,52, 60 SYMBOL 132,6,10,2,0,0,0,0,0 

18 61 SYMBOL 61,28,8,8,8,62,62,62,62 
29 SYMBOL 38,12,12,12,12,24,24,16,1 6? SYMBOL. 127,85,255,85,255,85,255, 
6 85,255 

30 SYMBOL 39,12,12,12,12,24,56,12,4 63 GDOSUB 314:C0SUB 349:6010 359 

31 SYMBOL 91,36,183,255,255,255,255 64 REM TASTATURABFRAGUNG 
‚255,255 65 joystick=1:IF poi=1 THEN INK 15, 
3? SYMBOL 93,65,231,255,255,255,255 0,26:50UND 1,10,1,4,0,3 
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Gh IF O INKEYEB)»-3 THEN GOSUB 121:x- 
x- 1:PO=-1:p=2:G0T0 71 

67 IF INKEYÜ1)>-1 THEN GOSUB 121:x= 
x+1:P0=2:p=1:G0T0 71 

68 IF INKEY(O)>-1 THEN GOSUB 121:y= 
y-1:p=-3:G0T0 719 
69 IF INKEY(2)>-1 
y+1:p=-4:G0T0 71 
70 d=d+1:IF d=-4 THEN GOSUB 121: y=y+ 
1:d=0:p=4 

71 x1=0x#16-12)#*2:y1=409-y*16:t1=TE 
ST(x1+2,y1-p) :t2=-TEST (x1+9,y2-30): 
y2-409-( y+1)#16:t:3=TEST (x1+9,y2-B8) 
72 IF t3=9 OR t1=3 OR t1=12 OR t3>=1 
2 THFN GOSUB 126 

73 IF x=tx AND y=ty THEN le-le-1:G6G0 
SUB 126:G05UB 319:G05UB 108 

74 IF z=1 THEN z1=21+19 :IF zi=20 TH 
EN z°0:21=0:G0O5UB 98 

75 IF t1=11 THEN tustu-1:JIF tu=0 TH 
[N tu=1:y=y+1 

76 Ui t1=5 OR t3=-5 OR t3=7 THEN le=- 
le :1:6505UB 126:605UB 319:605UB 108 
77 DON FO GOGSUB 114,117 

?8 NE TURN 
79 REM 

80 REM 

813 IF poi=1 THEN INK 15,0,26:S50UND 
1,10,1,4,0,3 

82 IF INKFY(8)>-1 THEN GOSUB 121:x= 
x- 1:po=1:p=2-60T0 86 

33 IF INKEY( 1)>-1 THEN GOSUB 121:x= 
xt1:po=2:p=1:GOTO 86 

#4 IF INKEY(O)>-1 THEN joystick-1:R 
ETURN 

85 IF INKEY(2)>-1 
1:21=0 

86 di-d1+1:IF d1I=-7 THEN d1=-0:fue=-fu 
e-1:PLOT fue,18,0:DRAW fue,24,0:IF 
Tue<201 THEN poi-1 

87 IF fue<170 THEN 1l1e=0:5605UB 321 
88 x1=(x*#16-12)#*2:y1=409-y*16:t1=TE 
ST(x1+9,y1-p) :t2=TEST (x1+9,y1-30): 
y2=-409-( y+1)*16:t:3=TEST (x1+9,y2-8) 


THEN GOGUB 121:y- 


Tasterturabfragung 


THEN c=x:u=y+t1:z= 


89 IF t1=-12 OR t3=12 THEN GOSUB 126 
90 IF t2=N THEN IF INKEY$="" THEN j 
oystick=1:RETURN ELSE joystick=1:PRE 
TURN 

91 IF t3 = 12 THEN GOSUB 126 

92 IF t1=3 TIHEN GOSUB 126 ELSE IF x 
“tx AND y=ty THEN le=le-1:605UB 319 
:GUOSUB 108 

93 IF t1=5 OR t2=5 THEN le=le-1:608 


96 RETURN 

97 REM Bombe legen 

98 PEN 1:L0OCATE c,u:PRINT"”e@" 

99 x5-(c#16-12) *2:y5=409-u*16:t:5=TE 
ST(x5135,y5-2) :1:6=TEST( x 5-40, y5S 2) 


100 IF t#5=3 THEN LOCATE c+1,u:PRINT 
"  ":LOCATE c+1,u-1:PRINI" 

101 IF t6-=3 THEN LOCATE c-2,u:PRINT 
"  *:LOCATE c-2,u-1:PAINT” " 

10? SOUND 1,145,255,0,1,1,12 

103 LOCATE c,u:PRINI" " 

104 IF z=2 THEN IF c=x OR c=x+1 OR 
e=x-1 THEN z-0 :le=le-1:G605UB 319:6G 
0SUB 108: zu=1 


105 z-D 

106 RETURN 

107 REM Mann tot 
108 SOUND 3,300,100,15,3,3 


109 PEN 4:LOCATE x,y:PRINT"y":PEN 1 
:LOCATE x,y+1:PRINT"x" 

130 FOR t=-1 TO 2300 :NEXT t 

111 joystick=1:LOCATE x,y:PRINT" *: 
LOCATE x,y+1:PRINI"” ":x=x10:y=y10 


112 RETURN 
113 REM Mann ausgeben 
114 PEN 13:LOCATE X,Y:PRINT"!"” 


115 
116 
117 
118 


PEN 6:LOCATE X,Y+1:PRINT"”A#" 
RETURN 

PEN 13:LOCATE X,Y:PRINI"%" 
PEN 6:1.0CATE X,Y+1:PRINIT"B" 
119 RETURN 

120 REM ist mit Wand Tier 
estnssen 

121 IF x=tx AND y=ty THEN le=le-1:6 
OSUB 319:G6U5UB 108 

122 LOCATE x,y:PRINT" ":LÜCATE x,y+ 
1:PRINT” " 

123 fue=fue-1:PLOT fFue,18,0:DRAW Fu 
e,24,0:IF fue<201 THEN poi=l 

124 IF fue“170 THEN le=-0:605UB 321 
125 RETURN 

126 IF p=1 THEN 
127 IF p=2 THEN 
1?8 IF p:3 THEN 
129 IF p=4 THEN 
TURN 

130 p=0 

131 RETURN 

132 REM Bildaufbau 

133 L.OCATE 1,3:PEN 11:PRINT"ddddddd 
dddddddddddecid” ; :GOSUB 612 

134 PEN 1:FPRINT”c";:PEN 12:PRINT"+ 
(”;:PEN 1:PAINT"abcabbcabcaaachb”; 


zusammeng 


x=x%-1 
x=x+1 
y-yt+i 
yy-1:joystick=2:AF 


UB 126:G05UB 319:G605UB 108 135 PRINT"a”;:PEN 12:PRINT"- )";:P 

94 IF z=1 THEN zi=z1+1 :IF zi=20 TH EN 1:PRINT"aacbabaabbccabe"; 

EN z=2:z21=-0:605UB 98:IF zu=1 THEN z 136 PRINT"”c";:PEN 12:PRINT"- (*";:P 
u=0:RETUARN EN 1:PRINT"cabcacbaacbacab"; 

95 ON po GOSUB 114,117 137 FPRINT”"a”; :PEN 12:PRINT"+ )";:r29 
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EN 1:PRINT"cacbacbacbacacb"”; 
138 PRINT"a”; :PEN 12:PRINT"- 
Y aha Ar da BT PEN 1:PRINT”ab"; 
139 PRINT"a"; :PEN 12:PRINT"- 
).” 5 -PEN 1:PRINT"ab"; 
140 PRINT"b"; :PEN 12:PRINT"+ 


141 printr&sP Eden: BIN LINE“ ar 
IElI- 93%; 


:PEN 1:PRINT"ba" 
142 PRINT"abcabebacbacb"; : 
INT"+ )”;:PEN 1: PRINT" ac” 
143 PRINT"acbcacabcacba" "PEN 12:PR 
INT”- )"”;:PEN 1:PRINT"ab"; 

144 PRINT"acbaccabacaba”; :PEN 12:PR 


rd SE 


:PEN 12:PR 


INT"+ (”";:PEN 1:PRINT"cb"; 
145 PRINT"acbabccb"; :PEN 12: ERINTTE 
‘2177 )";:PEN 1: PRINT" ca” 


146 PRINT"achababce"; :PEN 12: :PRINT"- 
(";:PEN 1: BAINI SCH 

147 PRINT"acbecbac" :PEN 12:PRINT"- 
)";:PEN :PRINT"ac”; 

148 PRINT"acbcabca"”; :PEN 12:PAINT*"- 


IIEILId”;:PEN 1:PRINT"ab"; 
149 PEN 11:PARINT"dddddddddddddddddd 
dd”; 
150 RETURN 


151 LOCATE 1,19:PEN 11:PAINT"dddddd 
ddddddddddddd" :LOCATE 1,3:PRAINT"ddd 
ddddddddddddddddd" :GOSUB 612 

15? PEN 1:LOCATE 1,4:PRINT"cabcbacb 
";:PEN 12:PARINT"+ (*;:PEN 1:PRINT" 
cebbebabc”; 

153 PRINT"abcbcabc"; :PEN 12: SEHENTL "= 

)";:PEN 1: PAINT"aecbacba” 

154 PRINT"”bab";:PEN 12: PRINT" d?‘‘?/ 
\??*‘'d”;:PEN 1:PRINT"abc"”; 
155 PRINT"cbc"; :PEN 12:PRINT"- 
).2> EN 1:PRINT"acb"; 
PRINT"bca" :PEN 12:PRINT"+ 
(7; :PEN” 1:PRINT”cbb"; 
157 PRINT"”caa"; :PEN 12: ERINITE <[] 

LLIL> 9)”; :PEN 1:PRINT"ace" 

158 PRINT"bab"; :PEN 12: PRINT"+ ). =; 

:PEN 1:PRINT"cbabca"”; :PEN 12:PRINT” 

- )";:PEN SrEHINT Aebr; 

159 PRINT"cba"”; :PEN 12:PRINT"- )"; 

:PEN 1: PRINT"acabbe” ;:PEN 12;:PAINT" 

- )";:PEN 1:PRINT"”bab"; 

160 PRINT"cbb";:PEN 12:PRINT"+ ("; 

:PEN 1:PAINT"acabab"; :PEN 12:PRINT" 

+ (";:PEN 1:PRINT"aba”; 

1613 PRINT"bbc"; :PEN 12:PRINT"- 

“?7?°/ )";:PEN 1:PRINT"aca"; 

162 PAINT"cab";:PEN 12:PRINT"- 
)";:PEN 1:PRINT"bac"”; 

163 PRINT"abc”;:PEN 12:PRINT"+ 
(";:PEN 1:PRINT"”cba"”; 

164 PRINT"”aba"”; :PEN 12:PRINT"dIJLL]> 

<][L[d”;:PEN 1:PRINT"bab"; 
165 PRINT"acbcbeca”; :PEN 12:PRINT”+ 


156 


Far 


(";:PEN 1: ERIMT OGRCBEB 
166 PRINT"cbcacbbc"; :PEN 12: PRINT"- 
)";:PEN 1:PAINT"bacbacb"; 
167 RETURN 
168 y=5 
169 PEN 11:LOCATE 1,3:PRINT"ddddddd 
ddddddddddddd" :LOCATE. 1, 19: PRINT"”dd 
ddddddddddddddddd" :GOSUB 612 
170 PEN 1:LOCATE 1,4:PRINT"abcba”;: 


PEN 5:PRINT"O‘?/ X\?‘d"”;:PEN 1:PRIN 
T"bcabb"; 
171 PRINT"bccaa"; :PEN 5:PRINT"- 


)”";:PEN 1:PRINT"bcacb"; 
172 PRINT"acbcb"; :PEN 5:PRINT"- 
(";:PEN 1:PAINT"cbcac”; 
PRINT"acbbc"; :PEN 5: ERINIES 
I)";:PEN 1: PRINT" obaca” 
174 PRINT"cbacc” :PEN 5: PRINT"- 
(”;:PEN 1: PRINT" ccabe" 
PRINT"aacab"; :PEN 5: PRINT" + 
(";:PEN 1:PAINT"cacba"”; 
176 PRINT"occbb";:PEN 5:PRINT"+ x«] 
[IE l]Ed”";:PEN 1:PRINT"cbacb"; 
177 PAINT"bcaab"; :PEN 5:PRINT"”- )" 
;:PEN 1:PRINT"acaboaauo"; 
178 PRINT"abbcec";:PEN S:PRINT”+ (" 
;:PEN 1:PARINT"acacbacba"”; 
179 PARINT"bebca"; :PEN 5:PRINT"- ? 
‘‘2?2°‘d”;:PEN 1:PRINT"acbab”; 
180 PAINT"bacbc”; :PEN 5:PRINT"- 
)";:PEN URPRINT "Reben , 
PRINT"bbcaa"; :PEN 5; ERINIES 
(";:PEN 1: PRINT"abcac" 
PRINT"acbab"; :PEN 5: PRINT"- 
)”;:PEN 1:PRINT"cbacb"; 
PRINT"cbaca”; :PEN 5:PRINT"+ 
)"”;:PEN 1:PRINT"bcacc”; 
PRINT"abcab"; :PEN 5:PRINT"- 
(”";:PEN 1:PRINT"cacaa"; 
185 RETURN 
186 y-5 
187 PEN 11:LOCATE 1,3:PAINT"ddddddd 
ddddddddddddd" :5G0OSUB 612 
188 LOCATE 1,19:PRINT"ddddddddddddd 
ddddddd":PEN 1 
189 LOCATE 1,4:PRINT"”bacba" 
PRINT"- (% 
a"; 
190 PRINT"babca”; :PEN 5:PRINT"- 
)";:PEN 1:PRINT"abcab"; 
191 PRINT"cbcab"; :PEN 5:PRINT"”d> 
<d”;:PEN 1:PRINT”"bbaca"; 
192 PRINT"sbaccb"; :PEN 5:PRINT"d> 
<d";:PEN 1:PARINT"acacab"; 
193 PRINT"baabcac”; :PEN SSFHINI=A> 
<d"”;:PEN 1: ER INT Scbaang” 
194 PRINT"cabcbbac”; :PEN 5: :PAINT"+ 
)J";:PEN 1:PRINT” boäbaben” 
195 PRINT"cabccab"; :PEN S:PAINT"d/ 
\d”;:PEN 1:PRINT"bcabcbce"; 


173 


175 


181 
182 
183 


184 


;:PEN 5: 
:PEN 1:PRINT"cacb 


BT rer nn 


LISTING 


1956 PRINT"cbbcac"; :PEN B:PRINISIL 
\d”;:PEN 1:PRINT"beabec” 
197 PRINT"cbebaa” ;:PEN S: PRINT"+ 
)";:PEN 1:PRINT"cabbca” 
198 PRINT"acbcab"; :PEN S:PRINT"- 
(";:PEN 1:PRINI"abcebca"®; 


199 PRINT” bcacaa"; :PEN 5: BRINT" dI!ıI 
[> )";:PEN :PRIN?® cbabab" 


200 PAINT"” bcabba"; :FEN 5: PAINT"-7°° 
*/ (";:PEN 1:PRINT"bcabca"”; 

203 FRINT"bcacab"; :PEN 5:PRINT"- 

)";:PEN 1:PRINT"cabcab"; 
PRINT"cabcba"::PEN 5:PRINT"+ 

)"::PEN 1:PRINT"bcebaab"; 

203 PRINT” beccbe";:PEN 5: PRINT"dI1> 
<]d";:FEN 1:PRINT"cbacba"; 

204 RETURN 

205 PEN 11:1.0CATE 1,3:PRINT"ddddddd 

ddddddddddddd”" : GOSUB 612 

206 LOCATE 1,19:PRINT"dddddddddddddd 

ddddddd”:PEN 1 

207 LOCATE 1,4:PRINT"cbacaaba"; 
5:PRINT"+ ("; 

c”; 

208 FPRINT"cbacacbc”; :PEN 5:PRINT"- 
I)";:PEN 1:PRINT"” beahbaab": 

209 PRINT"acbcb";:PEN 5: PRINT"d'?/ 
("::PEN 1:PRINT"cbabacab" 

210 PRINT"cacab";:PEN 5: PRINT"- 
(";:PEN 1: PRINT"baccaabe” 

211 PRINT"baacc”; :PEN 5: PRINT" + 
I)";:PEN 1: en. abcacaahb"” 

212 PRTNT"bacba”;:PEN 5: PRINT" + 
(";:PEN 1: PRINT" bacbcaab"; 

213 PRINT"cb";:PEN 5:PRINT"” SAFDT <[I! 
1d";:PEN 1: PRINT"beboabca” 

214 PRINT"cc";:PEN 5: PRINT"+ 
:PEN 1:PRINT” beabrachbabe” 


202 


:PEN 
:PEN 1:PRINT"cabccab 


215 PRINT"ab"; :PEN S:PRINT-- | a 
:PEN 1:PRINT"bcebabccaabba”; 
€E16 PRINT"cb";:PEN 5:PRINT"+ | er 
:PEN 1:PRINT"cbacabacbcab"; 
217 PRINT"cb"; :PEN 5:PRINT"”+ \2? 


"ZNDNZNN2A"S:PEN 1 


218 PRINT"ab"”;:PEN 5:PRINT"+ 


("; PEN 1 
219 PRINT"cc";:PEN 5:PRINT"- 
[7 :PEN 1 
220 PRINT"ao" :PEN 12:PRINT"AIL IT IE 


LILIELTIET";:PEN 1 

221 PRINT"bcabcbabcbabcbabab”; 

222 RETURN 

223 PEN 11:L0OCATE 1,3:PRINT"ddddddd 
dddddadddddddd”" :GOSUB 612 

224 LOCATE 1,199:PRINT"ddddddddddddd 
ddddddd" 

225 LOCATE 1,4:PEN 1:PRINT"bocbcaca 
"::PEN 12:PRINT"- )"”;:PEN 1:PRINT" 
beacbcca"; 


226 PRINT"aabcbaab”; :PEN 12:PRINT"+ 


)";:PEN 1:PRINT"cacbabcb”; 

227 PRINT"cbacbacb";:PEN 12:PRINT"- 
(";:PEN I PRENETCDabEbERN, 

228 PRINT"cbacabca";:PEN 12:PRINT"- 
(";5:PEN 1: PRINT"cbacabeb"; 

229 PRINT"bcaccabc*;:PEN 12:PRINT"+ 
)";:PEN 1:PRINT"” Nah ans, 
230 PRINT" bcaacbcb"; :PEN 12:PRINT”- 
(";:PEN 1::PRINT"becabbca”; 

231 PRINT"bbccaaco"; :PEN 12:PRINI" 
(";:PEN 1:PRINT" bebabbeb"; 

232 PRINT” bceocabac"; :PEN 12: SENENETT 
)";:PEN 1: PRINT" cabobeac" 

233 PRINT"cbacbbca"; :PEN 12: "PRINT" + 
I)"; :PEN 1: PAINT"braacbac". 

234 PRINT"cbacabca"; :PEN 12: SERENIEN 
(";:PEN 1:PRINT” cabbcabc” 

35 PRINT" abebabba” :PEN 12: :PRINT"- 
(";:PEN 1:PRINT"beabracb": 

236 PRINT"bcabcebca"; :PEN 12:PRINT"+ 
(";5:PEN 1:PARINT"cbacbbca"; 

"37 PRINT"cbaabeba"; :PEN 12:PRINT"-- 
)";:PEN 1:PRTNT"abcabcab"; 

238 PRINT"abecbabc"; :PEN 12:PRINT”+ 
(";:PEN 1:FRAINT "obchobba"; 

239 PAINT" babcabba”; :PEN 12:PRINT”+ 
)”;:PEN 1:PRINT” Baabhach". 

240 RETURN 

241 PEN 11:L0OCATE 1,3:PRINT” 

ddddddddddddd" : GUOSUB 612 

24° LOCGATE ‚19:PRINT"ddddddddddddcld 

ddddddd" 

243 LOCATE 1,4:PEN 1:PRINT"bbabaccb 

";:PEN 12:PRINT"- )";;PEN 1:PRINT" 

baccbach"; 

244 PRINT"bacbacba"; :PEN 1?:PAINT"- 
(";:PEN 1:PRINT” aba 

245 PRINT"bcabcebca”; :PEN 12:PRINT”+ 
(";:PEN 1:PRINT"cbcabcac”; 

246 PRINT"cbbcabaa”; :PEN 12:PRINT”- 
)";:PEN 1:PRINT"boabecbac”; 

247 PRINT"bbabcbec";:PEN 12:PRINT"+ 
(";:PEN 1:PAINT"cacaacbc”; 

248 PRINT"acacbcab”; :PEN IE PRINITE 
(";:PEN 1: EAENT bacbabca" 

249 PRINT"ba";:PEN 12:PRINT"” mararı 
\2°''774"; :PEN 1:PRINT”be" 
250 PRINT"ac"; :PEN 12:PRINT"- 

)";:PEN 1:PRINT"ab"; 
251 PAINT"ca"; :PEN 12:PRINT"+ 

(";:PEN 1:PRINT"cc”®; 
252? PRINT"”ac"; :PEN 12:PRINT"- 
JIIL]I> (*";:PEN 1:PRINT"”ba"; 
253 PRINI"”"cc";:PEN 12:PRINT”+ ("”;: 
PEN 1:PRINT"ababcaab"; :PEN 12:PRINT 


ddddddd 


<ItEt 


"+ )";:PEN 1:PRINI"bc”; 

254 PRINT"ba";:PEN 12:PRINT"+ )";: 
PEN 1:PAINT"abecbebc";:PEN 12:PAINT 

"+ (";:PEN 1:PRINT"bc"; 

255 PRINT"cc";:PEN 12:PRINT"+ (";:29 


57 


LISTING 


PEN 1: PRINT" ababnash” PEN 12:PRINT 279 LOCATE 1,4:PEN 1:PRINT”aa”; :PEN 


“+  )";:PEN 1:PRINT”be” 12:PRINT"- )";:PEN 1:PRINT"cbabca 
256 PRINT"ba";:PEN 12: PRINT"+ Yr33 bce";:PEN 12:PRINT"- )";:PEN 1:PRIN 
PEN 1: PRINT"abecbebe" ren 12:PRINT T"bb"; 

"+ (";:PEN 1:PRINT"” be” 280 PRINT"ba"”;:PEN 12:PRINT"+ )";: 


257 PRINT"aa"; :PEN 12: PAINT"- )";: PEN PRINT TabgcheBe, SREN 12:PRINT 
BEN 1;PRINT"sbebcabg” ;;PEN 12: PRINT ”ı (";:PEN 1:PRINT"be” 


I :PEN 1:PRINT”bB”; 281 PRINT"oc"”;:PEN 12:PRINT"+ ("53 
258 RETURN PEN 1: PRINT" ababcaab”: :PEN 12:PRINT 
59 PEN 11:LOGATE 1,3:PRINT*rddddddd "+ )";:PEN 1:PRINT” be” 
ddddddddddddd” :GUSUB 612 282 PRINI"be";:PEN 12:PRINT"+ )";: 
260 1.0CATE 1,19:PRINT"ddddddddddddd PEN 1:PRINT"abecbebe";:PEN 12:PAINT 
ddddddd” "+ (";:PEN 1:PRINT"bce"” 


261 IOCATF 1,4:PEN 1:PRINT"cc";:PEN 283 PRINT"ab";:PEN 12:PRINT"+ (";: 
12:PAINT"+ (";:PEN 1: PAINT"ababca PEN 1:PRINT"bcacbaca”; :PEN 12:PRINT 

ab"; :PEN 12: PRINT" + J";:PEN 1:PRIN "+ (";:PEN 1:PRINT"cc"; 

T"be"; 264 PRINT"a8";:PEN 12:PRINT"- )";: 

262 PRINT"ba”; :PEN 12: EENINIT* )";: PEN 1:PRINT"cbabcabe”"”;:PEN 12:PRINT 

PEN 1:PRINT"abecbebe” :PEN 12:PRINT "- )*";:PEN 1:PRINT"bb"; 

"+ (*";:PEN 1:PRINT" be" 285 PRINT”ca”; :PEN 12:PRINT"+ 3"32 
263 PAINT"co"” ;:PEN 12: PRINT“ + ("5:2 PEN 1:PRAINT"bacbacba” ;PEN 12:PRINT 
PEN 1:PRINT"ababcaab";:PEN 12:PRINT *"- (";:PEN 1: :PRINT"ao” 

"+ )";:PEN 1:PRINT"bc"; 286 PRINT"ca”;:PEN 12: :PRINT" + )";: 
264 PRINT"ba"; :PEN 12:PRINT”+ )";: PEN 1:PRINT"bacbacba”::PEN 12:PAINT 
PEN 1:PFRINT"abecbebc"; :PEN 12:PRINT "- (*;:PEN 1: PHINT"ao"; 


"+ (";:PEN 1:PRINT” ber: 287 PRINT"ab";:PEN 12:PAINT”+ 2 
265 PRINT"aa": :PEN 12:PRINT”- m PEN 1:PRINT"bcacbaca”; :PEN 12:PRINT 
PEN 1:PRINT"cbabcabc"; :PEN 12:PRINT "+ (";:PCN 1:PRINT"ce”; 
= )”";:PEN ?:PRINT” bb®; 288 PRINT"ba”; :PEN 12:PRINT"+ )";: 
66 PRINT"cb"; :PEN 12:PRINTI"”+ \?'? PEN 1:PRINT"abcecbebe”"; :PEN 12:PRINT 
“‘?°7/ (";:PEN 1:PRINT"ab”"; "+ (";:PEN 1:PRINI”bc"; 
267 PRINT"cc";:PEN 12:PRINT"- 289 PRINT"cc"; :PEN 12:PRINT"+ (*;: 
)";:PEN 1:PRINT"”ba”; PEN 1:PRINT"ababcaab"; :PEN 12:PRINI 
268 PHRINT"bc";:PEN 12:PRINT”- "+ )*";:PEN 1:PRINT”bc"; 
(";:PEN 1:PRINT"”cb"; 230 PRINT"ba”;:PEN 12:PRINT"+ )";: 
269 PRINT"cb";:PEN 12:PRINT"+ <Jf{| PEN 1:PRINT"abcecbcbe”; :PEN 12:PRAINT 
LI1Jl]> (”;:PEN 1:PRINT"ab"; "+ (";:PEN 1:PRINI"be” 


270 PRINT"aa”;:PEN 12:PRINI"”- )";: 291 PRINT"”ba”; :PEN 12:PRINT"- (";: 
PEN 1:PRINT"cbabcabe";.PEN 12:PRINT PEN 1:PRINT"bacabcab"; :PEN 12:PRINT 
"-  )";:PEN 1:PRINT"”bb"; "+ (”;:PEN 1:PRINT"”bb"; 

271 PRINT"ba"; :PEN 12:PRINT"+ )";: 292 PRINT"”cb";:PEN 12:PRINT"- )*";: 
PEN 1:PRINT"abecbebe"; :PEN 12:PRINT PEN 1:PRINT"abcacbac”;:PEN 12:PRINT 


"+ (";:PEN 1:PRINT"be"; "= )";:PEN 1:PRINT"ab"; 

272 PRINT"co";:PEN 12:PRINT"+ ([";: 293 PAINT"ba”;:PEN 12:PRINT"+ )";: 
PEN 1:PRINT"ababceaab";:PEN 12:PRINT PEN 1:PRINT"abecbebe";:PEN 12:PRAINT 
"+ )";:PEN 1:PRAINT"be"; "+ (";:PEN 1:PRINT” be" 

273 PRINT”ba"; :PEN 12: PRINT"+ )";: 294 RETURN 

PEN 1: N :PEN 12:PRINT 295 LOCATE 1,3:PEN 11:PRINT"ddddddd 
"+ (";:PEN 1:PRINT" ba" ; ddddddddddddd" :GUOSUB 612 


274 PRINT"ab";:PEN 12:PAINT"+ (";: 296 1.DCATE 1,19:PRINT"dadddddddddddd 
PEN 1:PRINT"”bcacbaca”; :PEN 12:PRAINT ddddddd"” 


"+ (";:PEN 1:FRINT"cc"; 297 LOCATE 1,4:PEN 1:PRINT"ba"; :PEN 
275 EIN ar ;:PEN 12: PAINT"- yr;« 12:PRINT"+ )";:PEN 1:PRINT"abcecbe 
PEN 1:PHINT”"cbabcabc"; :PEN 12:PRINT be";:PEN 12:PRINT"+ (";:PEN 1:PRIN 
"- )";:PEN 1:PRINT"”bb"; T"bc"; 

276 RETURN 298 PRINT"cc";:PEN 12:PRINT"+ (";: 
277 PEN 11:1.0CATE 1,3:PRINT"ddddddd PEN 1:PRINT"ababcaab";:PEN 12:PRINT 
ddddddddddddd" :G0SUB 612 "+ )";:PEN MEREN RR 

278 LOCATE 1,19:PAINT"ddddddddddddd 299 PRINT”ba”; :PEN 12: PRINT"+ )";: 
ddddddd* PEN 1:PRINT" sbesbobe* :PEN 12:PRINT 


58 


LISTING 


"+ ({"::PEN 1:PAINT"bc”; 
300 PRINT"ba"”; :PEN 12:PHINT"- Er58 
PEN 1:PAINT"bacabcab"; : PEN 12:PRINT 
"4 (";:PEN 1:PRINT"bb"; 
301 PRINT"cb"; :PEN 12:PRINT"- )";: 
PEN 1:PRINT"abcacbac"; :PEN 12:PRINI 


PEN 1: :PRINT"ab"; 
302 Iniüfs ba”;:PEN 12:PAINT"+ )";: 


PEN 1: PRINT"abecbebe” ;:PEN 12:PRINT 

"+ (";:PEN 1:PRINT"bc” 

303 PRINT"ch"; :PEN 12:PRINT”+ 

72°2/  (";:PEN 1:PRINT"ab"; 

304 PRINT”"cc"”;:PEN 12:PRINT"- 

)";:PEN 1:PARINT"”"ba"; 
305 PRINT"”"bc”;:PEN 12:PRINT”- 
(";:PEN 1:PRINT"cb"; 

306 PRINT"ab";:PEN 12:PRINT"dJI[ J1IL> 
<LIJLld";:PEN 1:PAINT"ba"; 

307 PRINT"cabcacba”; :PEN 12:PRINT"”- 
)";:PEN 1:PRINT"bcacbaab"; 

308 PRINT"becbabcb”;:PEN 12:PRINT"”+ 
(";:PEN 1:PRINT"bcebaabca"; 

309 PRINT"cbacacbe”;:PEN 12:PRINT”- 
(";:PEN 1:PRINT"bcabcbcb"; 

310 PRINT"cbbbbeca”; :PEN 12:PRINT"”+ 
)";:PEN 1:PRINT"”abbccaaa"; 

311 PRINT”"becbaabac”"; :PEN 12:PRINT”- 
)";:PEN 1:PRINT"bcaacbab"; 

312 RETURN 

313 REM Anzeige Leben u. Oxigen 

314 LOCATE 1,21:PEN 13:PAINT "RAR%K% 


\?*?2 


315 LOVCATIE 1,22:PEN 6:PRINT "EEGEE” 
316 INK 15,26:PEN 15:LOCATE 1,24:FO0 
A T=200 TO 204:PRINT CHA$(T);:NEXT: 
fue=450:FOR i=170 TO 200 STEP 2:50U 
ND 135,( 350 -(i-100)) ,1,15:P 

LOT i,18,3:DRAW i,24,3:NEXT i:FOR i 
=201 TO 450 STEP ?2:50UND 135,( 350--( 


i-100)),1,15:PLOT i,18,1:DRAW i,24, 
1:NFXT i 

317 poi=-O 

318 RETURN 

319 REM Mann tot 


320 LOCATE le+1,21:PRINT" ” 
le+1,22:PRINT"”" ” 

321 IF le<1 THEN BORDER 0:G605UB 354 
:GOTO 324 


:LOCATE 


322 RETURN 

323 REM Bildschirm loerst sich au 
f 

324 FOR t=0 TO 639 STIEP B:MOVE #,0: 


DRAW t,399,0:NEXT:FOR t=0 TO 399 ST 
EP 4:MDOVE 0,t:DRAW 639,t,0:NEXT 

325 FOR t=4 TN 640 STEP 8:MOVE t,0: 
DRAW 1,399,0:NEXT 

326 MODE 1:G6G010 584 

327 REM Hero Veberschrift 

328 PILOT 76,258, 1:DRAW 78,290:DRAW 
80,302:DRAW 74,310:DRAW 72,320 :DRAW 


74,332:DRAW 72,348:DRAW 78, 358:DRA 
W 90,356:DRAW 100, 348:DRAW 
104,314:DRAW 118,318:DRAAW 128, 312:D 
HAW 134, 326:DRAW 130,354:DRAW 144,3 
60:DRAW 154, 350:DRAW 150, 328:DRAW 1 
58,298 

329 DRAW 154,288:DRAW 150,260:DRAW 
134 ,266:DRAW 136,?80:DRAW 128,298:D 
RAW 102,292:DRAW 96,264:DRAW 84,256 
:DRAW 76,258:PLOT 178,252:D 

RAW 168,260:DRAAW 176,270:DRAW 194,2 
74:DRAW 198,258:DRAW 178,252:PLOT 2 
13,258:DRAW 224 ,,276:DRAW 218,298:DR 
AW 224,322 

330 DRAW 216, 340:DRAW 
250,356:DRAW 296, 36?:DHAW 292, 352:0 
RAW ?88,342:DRAW 246,334:DRAW 242,3 
22:DAAW 246, 312:DAAW 262,31 

6:DHAW ?90,312:DRAW 2B4,302:DRAW 25 
6,296:DRAW 246, ?8R:DRAW 250, 278:DHA 
W 264,272:DRAW 284,262:DRAW 264,258 
:DRAW 218,260 

331 PI.OT 308,260:DRAW 302,274 :DRAW 
314,274:DRAW 324,270:DRAAW 320,264:D 
HAW 316,256:DAAW 208,260:PLOT 352,2 
58:DRAW 348,290:DRAW 362,32 

?:DRAW 358, 360:DAAW 388, 366:DRAW 42 
0,358:DRAW 434, 356:DRAW 438,336 :DRA 
w 418,312:DRAW 388, 312:DRAW 396,302 
:DRAW 422,270 


332 DRAW 416,258:DRAW 402,264 :DRAW 
390,270:DRAW 384,284:DRAW 370,766-D 
RAW 360, 252:DRAW 352,258:PLOT 578,3 
30:DRAW 376, 246:DRAW 396,35 

0:DRAW 412,344:DRAW 408,330:DRAW 39 
1,326:DRAW 378,330: PLOT 444,268:DRA 
W 450,258:DRAW 450,258:DRAW 464,268 
:DRAW 456,280 

333 DRAW 454,272:RAW 444,268: PLOT 
490,268:DRAW 478, 290:DRAW 482,316:D 
RAW 508, 350:DRAW 536,358:DRAW 560,3 
A4:DRAW 574,336:DRAW 564,31 

B:CRAW 564 ,318:DRAW 574,306:DRAW 55 
4,284:DRAW 544,256:DRAW 516,254 :DRA 


226,36? : DRAW 


# 490,268:Pl1.0T 512,292:DRAW 504,316 
:DRAW 516, 326 
334 DRAW 538, 332:DRAW 544,306: DHAW 


538,?08:DRAW 528,304:DRAW 528,206:D 
RAW 516,236:DRAW 512,292 


335 PEN 2:LOCATE 11,19:PRINT CHR$C 1 
64) ;:PEN 3:PRINT” von Lars Fichtner 


336 CALL 68B03:G60SUB 619 

337 FOR a=0 TO 26:CALlL GBCAD: SOUND 
135,(2+10)*4,0,7 

NEXT 

SOUND 135,0,0,0,0 

RETURN 


REM Score Anzeipe 


INK 15,26:FOR t= fue TO 170 STEZP 


LISTING 


P -1:50UND 3,(t+3°3),1,15:fue=fue-1 
:sc=sc+10:PLOT fue, 18,0:DRAW fue,24 
‚DO:NEXT t 

342 WINDOW 1,20,4,18:CLS 

344 LOCATE 5,7:PRINT"S";:PEN 3:PRIN 
T"C";:PEN 8:PRINT"O”;:PEN 1:PRINT"R 
SESBEN 12:PRINT"E :";:PEN 14:PRINT 
445 SOUND 1,499,::00,15:50UND 2,500, 
300, 15:LEVEL=I.EVEL +1 

346 FOR T- 1 TO AOODO:NEXT 
‚?D9, 3,25 

347 GOSUB 316 

348 REM naechster Level 

349 1OCATE 1,3:PEN 11:PRINT"”ddddddd 
ddddddddddddd" :LOCATE 1,19:PRINT"”dd 
dddddddddddddadadddd” : WINDOW 1,20,4,1 
8:1.0CATE 5,7:PEN 4:PRINT"”L"” 

;:PEN 3:PRINT"E";:PEN 1:PRAINT"V";,:P 
EN 8:PRINT "E”;:PEN 12:PRINT"L :”;: 
PEN 14:PRINT LEVEL;" ":INK 15,26 
350 WINDOW 1,20,1,25:50UND 1,499,50 
0,15:50UND 2,500,500,15:FOR T=1 TO 
3000:NEXT T 
351 RETURN 
352 END 

353 AEM 

de 

354 PEN A4:L0CATE x,y:PRINT"y":PEN 1 
:LOCATE x,y*+1:PRINT"x"”":FOR t= 1 TO 
100 STEF 2 

355 SOUND 3,(t+3°3),10,15,3,3 

356 NEXT 

357 RETURN 

358 REM Raeume erstellen 

359 tu=1:x10=x:y10=-6:6G05UB 133 

360 FEN 3:LOCATE 9,9:PRINT"Fg" 

361 LOCATE 9, 10:PRINT "fg" 

362 GOSUB 580 
363 IF t3=119 
364 GO1I0O 362 
365 y>b 

366 GOSUB 151::x=5:ty=7:t2=1:y10-6: 
x10=:x:Lu=2 

367 PEN 3:LDCATE 13,14:PRINT"Tg":LO 
CATE 13, 35:FPRINT"fg" 

368 GOSUN 580 

3659 IF t3=11 THEN GOTO 377 

370 IF t1=11 THEN y=17:G0T0 359 

371 LOCATE tx,ty:PRINT” "” 
372 IF tz=2 THEN tx=Lx-1 
THEN tz=1 

373 IF tz=1 THEN tx=tx+1 
THEN tz=2 

374 PEN 7:LOCATE tx,ty:PRINT"”“" 

375 IF tx=x OR x=tx THEN IF y=ty TH 
EN le=le-1 : GOSUB 319 :GOSUB 108 
376 GOTO 368 

377 y-=5 

378 tu=3:x10=x:y10=5:tx=0:ty=0:GOSU 


T:WINDOW 1 


Ton fuer das Spielaen 


THEN GOTO 365 


:IF tx= 4 


:IF tx=16 


RB 169 
379 GOSUB 580 
380 IF t3=11 THEN GOTO 383 


381 IF t1=11 THEN y=16:6G0TO 366 

382 GOTO 379 

383 y=5 

384 ty=13:tx=9:y10=5:x10=x:t2=1:608 
uUB 187 

385 GOSUB 580 

386 IF t3=11 THEN GOTO 393 

387 IF t1=131 THEN y=17:G0T0 378 

388 LOCATE tx,ty:PRINT” ” 

389 IF tz=2 THEN tx=tx-1:IF tx=7 TH 
EN tz=1 

390 IF tz=1 THEN tx=tx+1:IF tx=13 T 
HEN tz=2 

391 PEN 7:1 0CATE tx,ty:PRINT"A" 

39? GUTO 385 

393 y-5 

394 tx=0:ty=0:x10=-x:y10=-5:60SUB 205 
395 PEN 11:1L0CATE 19,16:PRINT ma$ 
396 GOSUB 580 

397 IF t3=10 THEN GOSUB 342:G0T0 40 
18) 

49A IF 1-11 THEN y17:G60T0 384 

399 CGOTO 396 

400 PEN 1:x=4:y=6 

401 tu=1:x10=4:y10=6:6G05UB 133 

402 PEN 3:1L0CATE 9,9:PRINT"fFg" 

403 LOCATE 9,10:PRINT"fg"” 

404 GOSUB 580 

405 IF £3=11 THEN GOTO 407 

406 GOTO 404 

407 y=5 

A08B GDOSUB 223:tu=2:x10=x:y10-6:tx”=1 


1:ty=14:ps=0 

409 GOSUB 580 

410 IF t3=11 THEN GOTO 416 

aıı IF t1=11 THEN y=:17:C0TO 401 

412 LOCATE tx,ty:PRINT” “ 

A13 Ps=P5+1:IF PS>3 THEN tx=10 

a14 IF PS>6 THEN tx=11:PS=0 

415 PEN 7:LOCATE tx,ty:PRINT""":GOT 
0 409 


AIG y=5 

A417? GOSUB 241:tu=3:x10=10:y10=6:tx= 
13:ty=11 :tz=1 

418 PEN 3:LOCATE 8, 11:PRINT"fg"” 


419 
420 
421 
422 


LOCATE 8, 12:PRINT"Fg” 

GOSUB 580 

IF t3=11 THEN GOTO 430 
IF t1=11 THEN y=17 :GOTO 408 
423 LOCATE tx,ty:PRINT” "” 

424 IF ty=12 AND tz=1 THEN 
tx=tx+1:IF tx=17 THEN tz=2 
425 IF ty=11 AND tz=1 THEN 
tx=tx+1:IfF tx=17 THEN tz=2 
426 If ty=12 AND tz=2 THEN 
tx=tx-1:IF tx=11 THEN tz=1 
427 IF ty=11 AND tz=2 THEN 


ty=ty-1: 
ELSE 428 
ty=ty+1: 
ELSE 428 
ty=ty-1: 
ELSE 428 
ty=ty+1: 


60 


LISTING 


tx=-tx-1:IF tx=11 THEN tz=1 

428 PEN 7:LOCATE tx,ty:PRINT”*" 

429 GUOTN 420 

430 y=5 

431 GOSUB 259:tu=4:x10=x:y10=-6:tx-D 


432 PEN 3:LOCATE 10, 10:PAINT"fg” 
433 LOCATE 10,131:PRINT "fg" 

434 GOSUB 580 

435 IF t3=11 THEN GOTND 438 

436 IF t1=11 THEN y=17:G60T0 417 
137 GOTO 434 

a38 y=5 

4393 GDSUB 277:x10=x:y10=-6:tu=5:PEN 


12:LOCATE 3, 15:PRTNT"”dII d”:LOCATE 3 
‚16:PRINT"d?'d" 

440 GOSUB 580 

441 IF t3=119 THEN GOTO 
442 IF £1=119 
443 GOTO 440 
aaa y=-5 

A45 tu=6:605URB 295:x10=x:y10=-6:tz=0 
416 GOSUB 580 

447 IF 13:19 THEN GOTO 453 

448 IF t1=11 THEN y=17:GOTO 439 

449 tz=tz+1:1IF Lz=2 THEN PEN 5:LOCA 
TE 11,17:PRINT"=":tx=11:ty=17 

450 IF tz=A4 THEN LOCATE 10,17:PEN 5 
:PRINT"}*":tx=10:ty=17 
4513 IF tz=B THEN 1.OCATE 
”» "rt>r=0:6x=0 


444 
THEN y=17:G0TD 431 


10,17:PRINT 


452 GOTID 446 
453 y=-5 
454 GDOSUB 205:tu=7:x10=x:y10=-6: 


455 PEN 11:1.0CATE 19,16:PRINT ma$ 
456 GOSUB 580 

457 IF t3=10 THEN GOSUB 342 :60T0 4 
60 

458 IF t1=113 TIHEN y=-17:60T0O 445 

459 GOTO 456 

a0 yr5:x=A4 

461 GOSUB 133:tu=1:x10=-x:y10-6:ty=1 
7:tx=B :tz=2?74:PEN 3:LOCATE 12,16:P 


RINT"fFg”:LOCATE 
46? GOSUB 580 

4653 IF 1L3=191 THEN GOTO 467 

464 PLOT 300,tz2,0:tz=tz2-qg:PLOT 300, 
tz,4:q=y+1:IF tz<241 THEN LOCATE 10 
‚IVO:PEN 4:PRINT"”@e":PLOT 300,t2,0:tz 
:2974:4=0:LDCATE 10, 10:PRINT 

" "Z50UND 1,20,10,15,3 

465 IF q>1 AND x=10 THEN IF y=-10 OR 
y+t1=10 THEN le=le-1:605UB 319:6G0SU 

N 108 

466 GNTO 46? 

467 y-5 

A6B GOSUB 223:tu=2:ty-0:tx=8:x10=-x: 
y10=-6:ps= 

469 GOSUB 580 

470 IF t3=11 THEN GOTO 475 

a7ı1 IF t1=11 THEN y=-17:6G0TD 461 


12,17: PRINT"Ig" 


472 ps=-ps+t2:IF ps>1 AND ps<5 THEN P 
LOT 289,265,4:DRAW 350,265,1:PLOT 2 
89,200,0:DRAW 350,200,0:IF y=9 OR y 
+1=9 THEN le=-le-1:605UB 319 
:GVSUB 108 
Aa73 IF ps>5 THEN PLOT 289,200,4:DRA 
w 2350,200,1:PLOT 2569,265,0:DRAW 350 
‚765,0:IF y=13 OR y+1=13 THEN le-le 
- 1:605UB 319:G0SUB 108 ELSE 
IF ps>10 THEN ps=0O 
474 GUOTN 469 
4975 y=5 
476 GNSUB 241:tu=3:x10=10:y10=-6:ty= 
12:tx=11:tz=2 
477 PEN 12:LOCATE 15,18:PRINT"O)[ d” 
"PEN 6:1.0CATE 17,17:PRINT CHRA$( 166) 
A978 GOSUB 580:1L.0CATE tx,ty:PRINTI" " 
479 IF 13=11 THEN GOTO 485 
480 IF 61-1319 THEN y-17:60T0 468 
481 IF ze=NM AND x=17 AND y+1-17 THE 
N SNUND 1,20, 15:ze=1 
482 IF tz=1 THEN ty=ky+1:If 
HEN tz=2 
483 IF tz=2 THEN ty=ty-1:IF 
EN tz7=1 
484 LOCATE tx,ty:PRINT”#":GOTO 478 
485 y=5 
AR6 GOSUB 295: tu=4:tx2=0:ty=0:x10=x: 
y10:=6 
487 PEN 12:L0OCATE 15,4:PRINT”d?'‘d": 
FOR t=-17 TO 18:PEN 9:LOCATE 10,t:PR 
INT CHR$I 129) ;CHRA$( 177) :NEXT +:PLN 
4:1.0OCATE 18, 12:PRINT”d"”:PEN 
1:LOCATE 18,12:PRINT CHA$( 22) +CHRA$ 
Ü1) +CHR$C 167) ; CHA$( 22) +CHR$( 0) 
458 GOSUB 5KRO 
489 IF t3=11 THEN GOTO 494 
490 IF t1=11 THEN y=17:6G0T0 476 
491 IF ze=1 AND x=17 AND INKEY$=" " 
AND y+r1=-12 THEN ze=-O:ta=ta+r1:50UND 
1,20,1,15 
492 IF ta>1 THEN INK 9,3:FOR t=1 TO 
IDO:NEXT t:INK 9,18:50UND 1,40,1,1 
5:ta=ta+r1:IF ta>10 THEN INK 9,0 :to0 
=0:FOR 4=17 TO 18:LDCATE 10 
‚„t:PHRINI" ":NEXT U 
493 60970 488 
494 y=5 
495 GOSUB 


ty-13 T 


ty=4 TH 


205:tu=5:x10=x:y10=-y:PEN 
11:LOCATE 19,16:PRINT ma$ 

496 GOSUB SEN 

497 IF t3:°10 THEN GOSUB 
8) 

a98 IF t1=11 
499 GOTN 496 
SI0 y-5:x=4 
501 G605UB 133:tu=1:x10=4:y10=6:tx=8B 
:t2=274:q=3 

502 GDOSUB 580 

503 IF t3=11 THEN GOTO 507 


342:5070 50 


THEN y°17:60T0 486 
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LISTING 


504 PLOT 300,tz,0:PLOT 364,tz,0:tz- 
tz-q:PLOT 300,t2,4:PLOT 364,t2,4:q* 
q!1:IF tz<241 THEN LOCATE 10,10:PEN 
4:PATNT"@*":LOCATE 12,10:PR 
INT"@":PLOT 300,t2,0:PLOT 364,tz,0: 
t7=2974:q=3:LOCATE 10, 10:PRINT” ":LO 
ENTF 12,10:PRINT"” *":56D0UND 1,20,10,1 


505 IF q>3 AND x=10 OR q>3 AND x=12 
THEN TF y-10 OR y+1-10 THEN le-le- 
1:605UB 319:G05UR 108 

506 G010 502 

507 y-5:q9=-0:tz=0 

508 GOSUB 241:tu=2:x10=10:y10=6 

509 [F q<3 THEN PEN 12:1.0CATE 15,18 
:PRINT"AII d”":PEN 3:FOR t=? TO 9:1.0C 

AIE 16,t:PAINT"Ad4":NEXT t:IF q=0O TH 

EN PEN 12:1.0CATl 1%6,130:PRIN 

Tre" 

510 TF qg=:1 THEN PEN 12:LOCATE 16,10 
:PRINT"{, "ELSE IF q=2 THEN PEN 12:1. 

DGAIE 16, 10:PRINT”,,":4=:7:GOSUR 601 

511 GO5SUB 580 

512 IF £3=11 THEN GOTO 517 

513 TF t1=11 THEN y=17:6G0T0 501 

514 IF tz=1 AND x=17 AND y=11 IHEN 

»0:SOUND 1.20,1,5:G60T0 510 
q=1 AND t2=1 AND x=16 AND y- 
11 IHEN q=2:t2=0:50UND 1,20,1,5:60T 

0 510 


5156 G0TO 511 

517 y-5 

518 GOSUB 277:tu”3:x10=x:y10=6 

519 GOSUHN 580 

520 IF t3=113 THEN GOTO 523 

521 IF £1=11 THEN y=17:G0T0 508 

522 GOT1IO 519 

5273 y=-5 

574 GOSUR 295:tur4:x10=-x:y10=-6 

525 PEN 12:L0CATE 8,10:PRINT"dd":LO 
GATE 8, 11:PAINT"(-":LOCATE B,12:PRI 


NT”) +":1L0OCATE 8, 13:PHINIT"dd" :LOCATE. 
17,12:PRINT CHRECB) +CHA$IB 
)+ma$:PEN 17?:1L0CATE 9,18:PAINT"dI Id 


526 GOGSUJB 580 

527 IF £3-10 THEN GOSUB 342:60T0 53 
2 
528 IF :1-11 THEN y=17:60T0 518 

529 IF tz=0O THEN LOCATE 4,12:PEN 6: 

PRINT"=" 

530 IF tz-0O AND y+1=72 AND x=4 THEN 
SOUND 1,70, 15:tz2=1 

531 GOTO 525 

532 y=5:x=3:ze=0:INK 9,18 

533 605UB 133:tu=1:x10=3:y10=6:ty=1 
7:tx=B :t2=274:PEN 3:1L0CATE 12,9:PR 
[NT"Fg" - LECATE 12,10:PRINT"fe":LOCA 
TE 18, 1?:FAPER 17:PEN 6:PRI 

NT CHR$t 166) :PAPER 0 


534 GOSUB 580 

535 IF t3=11 THEN GOTO 540 

536 IF ze=2 AND y+1=17 AND x=17 THE 

N SOUND 1,20, 15:ze=3 

537 PLOT 300,tz2,0:tz=1z-q:PLOT 300, 
tz,4:q=q+1:1F tz<24A41 THEN LOCATE 10 
‚10:PEN 4:PRINT"@":PLOT 300,tz,0:tz 
-294:9=0:1.0CATE 10,10:PRINT 

” "SOUND 1,20,10,15,3 

538 IF q>1 AND x=10 THEN IF y=10 OR 
y+1=10 THEN le=1le-1:605UB 319:GOSU 
Rn 108 

539 GOTO 534 

540 y=-5 

541 GOSUB 159:4.u=-2:x10=x:y10=-6:ty=1 
4:t:x=7:tz-0 


542 GOSUB 580 

543 IF t3=11 IHEN GOTO SS0 

544 IF t1=11 THEN y=17:6070 532 

545 LOCATE tx,ty:PRINI"” " 

546 IF tz=0 THEN tx =tx#+1:IF tx=12 T 
HEN tz=1 

547 IF tz=1 THEN tx=tx-1:IF tx=7 IH 


EN tz=O 

548 LDCATE ta,ty:PEN 7:PRINT"#" 
549 GOTO 542 

550 y=-5 

551 G0SUB 187:tu=3:t2=-0:ty=13:6x=B: 
x10=x:y10=6 

55? GOSUB 580 

553 IF t3=11 THEN G0TO 560 

554 IF t1=-11 THEN y=17:6010 541 

555 1LOCATE tx,ty:PRINT” "” 
556 IF tz=0 THEN tx=tx+1:1F 
HEN t.z=1 


tx=14 T 


557 IF tz=1 THEN tx=tx-1:IF tx%-8 TH 
EN tz=0 

558 LOCATE tx,ty:PEN 7:PRINT"f£" 

559 GOTO 552 

560 y-b 


561 GOSUB 223:tu=4:%2=0:ty=-0:tx=0:x 
10=x:y10=6:1.0CATE 12,7:PAPER 12:PEN 
6:PRINT CHR$( 166) :PAPER U 

56? GOSUB 580 

563 IF t3=119 THEN GOTO 567 

564 TF t1=11 THEN y=17:60T0 551 

565 IF ze=0 AND x=11 AND y+1=7 AND 
INKEY$=" ” THEN SOUND 1,40,1,15:ze= 
1 

566 GUTO 562 

567 y=5 

568 GOSUB 241:tu=5:x10=x:y10=y:PEN 
12:LOCATE 3, 18:PRINT"d][ d":LOCATE 1 

5,18:PRINT"d]]d":PEN 11:L0CATE 17,19 

7:PRINT CHR${ 8) +CHR$( 8) +ma$ 

:LOCATE 3,17:PAPER A:PEN 1:PRINT CH 

R$( 167) :PEN 12:FOR t=13 TO 14:PAPER 
D0:PEN 9:LOCATE 16,t:PRINT CHR${ 127 
)CHR$L 127) : NEXT 

569 GOSUB SBO 
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| LISTING 


570 IF t3=10 THEN GOSUB 342:G0T0 57 
5 

571 IF t1=11 THEN y=17:60T0 561 

572 IF ze=1 AND x=4 AND y+1=17 AND 


INKEY$=" ” THEN SOUND 1,40,1,15:ze= 
2 

573 IF ze=3 AND x=4 AND y+1=17 AND 
INKEY$=" ” THEN INK 9,3:FOR t=1 TO 


100:NEXT t:INK 9,18:50UND 1,40,1,15 
sta=sta+1:IF ta>10 THEN INK 
9,0:t3=0:ze=0:FOR t=16,t:PRINT” "”: 
NEXT t 

574 GOTO 569 

575 REM Gratulation 

576 MODE 0:S5YMBÜOL AFTER 32 

577 PEN 3:LOCATE 5,2:3$="Gratulatio 
n":G05UB 606:WINDNW 1,20,4,25 

578 PEN 1:LOCATE 7,10:PRINT”Sie sin 
d"”:PEN 4:LOCATE 5,12:PRINT"der gebo 
":PEN 2:LOCATE 4,14:PRINT”H.E.R 
.0 Pilot” 

IF INKEY$="" THEN 579 ELSE 584 
IF joystick=1 THEN 64 

IF joystick=2 THEN 80 

RE.TURN 

REM Highscore Anzeige 

MODE 0O:CALL. &B8B03:SYMBOL AFTER 


585 PEN 3:1LDCATE 7,2:3$="Highscore"” 
:G05SUB 606:WINDOW 1,20, 12,12:IF sc> 
score(4) THEN GOTO 586 ELSE WINDOW 

1,20,4,25:PEN 4:6G0T0 594 

586 PEN 4:LOCATE A4,1:L1NE INPUT"Nam 
e :";spieler$:WINDOW 1,20,4,25:IF L 
EN( spieler$)>A THEN GOTO 584 

587 t=0:IF sc<score(4) THEN 594 

588 IF sc<score(3) THEN score(4)=sc 
:naME$( 4) =SPIELER$:GOTO 594 

589 IF sc<score(2) THEN t=1:60T0 59 


2 
590 IF sc<score( 1) THEN t=2:60T0 59 
2 
591 IF sc<score(0) THEN t=3 ELSE t= 
4 
592 FOR i=1 [DO t:score(S-i)=-scoref4 


-i) :name${ 5-i) "name$l[ A4-i) 
593 NEXT i:score(4 t)=sc: 
=spieler$ 


name$t{ 4-t) 


59A ULS 

595 FOR i-D T0 4A 

596 kK’k+r1:10CATE 1,i+5+kK:PRINT” ”; 
i+1;". "zname$li);” ";USING "YHRH“" 


;‚score(i) 

597 NEXT i 

598 LOCATE 4,20:PEN 1:FRINT"Neues 5 
piel 7?" 

599 a$=-UPPER$LINKEY$) :IF 3a$="J3" THE 
N MODE 1:C0OTO 6 ELSE IF 3$="N" THEN 
END ELSE 599 


601 PEN 3:LOCATE 16,q9:PRINT"dd”:LOC 

ATE 16,q+1:PRINT”dd”:LOCATE 16,q+2: 

PRINT”"dd”:PEN 12:LUOCATE 16,q+3:PRIN 

T”",,":SOUND 1,20, 1,5 

602 LOCATE 16,q:PRAINT” ":q=q+1:IF 

q+3=19 THEN GOTO 603 ELSE GOTO 601 

603 FOR t = 15 TO 18 :LOCATE 16,t:P 

RINT" ":NEXT T 

604 RETURN 

605 REM Vergroesserung der Buchsta 

ben 

606 FOR a=1 TO LEN(a$) :b=ASC( MID$( a 

$,a,1)) :adr=(b-32) #3+1+HIMEM 

607 FOR s=0 TO 7:s[ s)=PEEK(adr+s) :N 

EXT s 

608 &5YMBOL 254,5(0),s(0),s( 1) 
s(2) ,s(2),s(3),s(3) 

609 SYMBOL 255,s(4),s(4),s(5),s(5), 
s(6),s(6),s(7),s(”7) 

610 PRINT CHR$( 254) CHR$Ü 10) CHR$L 3) C 

HA$L2SS)CHR$SE 11) ;:NFXT a:RETURAN 

611 remmit zufail Hintergrund erste 
llen 

612 FOR t=1 TO 24 

613 hÜt)-INT (255*ANDl I)) 

614 NEXT t 

615 SYMBOL. 97,h(l 1) ,h(2),hC3),h[l4),h 

(5) ,h(6),h(7),h( 8) 

616 SYMBUOL 98,h( 9) ,h[10),hl11),hl 12 
),h( 13) ,h( 14) ,h( 15) ,h( 16) 

617 SYMBOL 99,h( 17) ,h( 18) 
),h( 21) ,h(22),h( 23) 

618 AHFTURN 

619 REM Sound 

620 RESTORE 625 
621 READ a,b,c 

622 IF a=-1 OA b=- 
TO 620 

623 SOUND a,b,c,7 

624 IF INKEY$="" 

RN 

625 DATA 1,190,40,2,758,20,2,379,20 
1,190,40,7,758,20,2,379,20,1,190,2 

0,2,758,20,1,150,20,2,379,20,1,179, 

20,2,758,20,1,190,20,2,379, 

20,1,159,40,2,758,20,2,379,20,1,159 
‚40,2,758,20,?,379,20,1,159,20,2,75 

B, 20, 1, 127 ‚20,2,379,20,1,1942,20,2,7 

58, 20 

626 DATA 1,150,20,2,379,20,1,142,40 
‚2,568,20,2,379,?0,1,142,40,2,758,2 

0,2,379,20,1,142,20,2,568,20,1,119, 

20,2,379,20,1,127,20,2,758B, 

20, }; an. 2,379,20,1,150,40,2,758 
‚20, 379,20,1,179, 10,2,851,20, 1,19 

D, ER 1, 179 ‚20,2,379, 20 

627 DATA 1,150, 80,2,758,20,2,379,20 
‚2,758,20,2,379, 20 

628 DATA 1, 190, a0, 2,758,20,2,379,20 


‚s{1), 


‚hL19) ,n(2 
‚h( 24) 


1 OR c=-1 THEN GO 


THEN 621 ELSE RETU 


END GOTO 599 ‚1,190,40, 2, 758, 20, 2, 379, 20, 1, 190 2» 
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1,2,758,20,1,150,20,2,379,20,1,179, 
?20,2,758,20,1,190,20,2,379, 
20,1,159,40,2,758,20,2,379,20,1,159 
‚40,2,758,20,2,379,20,1,159,20,2,75 
8,20,1,127,20,2,379,20,1,142,20,2,7 
58,20 
2EOSBB1 2012139079021 9733? 
0,2,379,20,1, 
0,2,979, 20. & Er ?0,2,758, 
20,1,142,20,2,379,20,1,150,40,2,758 
FW} 379,20,1,179,10,2,851,20,1,19 
0,10,1,179,20,2, 379,20 
630 DATA R 190,80,2,758,20,2,379,20 
‚2,758,20,2,379,20 
631 DATA ı ‚150,20,2,758,20,1,150,40 
‚2,379,20,2,758,20,1,179,20,2,379,2 


PETER 


2,20,7,568, 20, 1 ‚119, 


632 DATA Be 0 en 0 nu 
‚2,379,20,1,190,40,2,758,20,2,379,2 
0,1,179,20,2,851,20,1, ee, 40,2,426, 
20,2,568,20,1,190,20,,426, 
20,1,213,20.2, 851,20,1,213,20,2,426 
‚20,1 ‚213,40,2,568, 20,2, 426, 20,1,21 
3, 40,2,851 ‚20,2,426,20,1, 179, 20, 2,5 
68,20,2,426 ,20 
633 DATA 1,190,20,1,213,20,2,851,20 
1,213,20,2,426,20,1,142,40,2,568,2 
0,2,426,20,1,150,40,2,758,20,2,379, 
20,1,179,10,2,851,20,1,190, 
10,1,199,20,2,426,20 
634 DATA 1,150,20,2,758,20,1,150,40 
‚2,379,20,2,758,20,1,179,20,2,379,2 
0 
635 DATA 1,190,20,2, a 20,1,190,20 
‚2,379,20,1,190,40,2,758,20,2,379,2 
0,1,179,20,2,851, a 1, 179,40, 2, 426, 
20,2,568,20,1,190,20,>, 226, 
?0,1,213,20,2,851,20,1,213,20,2,426 
‚20,1,213,40,2,568,20,2,426, 36. 1,21 
3,40,7,851,20,2,426,20,1,179,20,2,5 
68,20,2,426,20 
636 DATA 1,190,20,1,213,20,2,851,20 
‚1,213,20,2,426,20,1,142,40,2,568,2 
0,2,426,20,1,150,40,2,758,20,2,379, 
20,1,179,10,2,851,20,1,190, 
10,1,179,20,2,426,20 
637 DATA 1, 190,80.2, 
‚2,758,20,2,379,20 
638 DATA 1,159,20,2,568,20,1,159,20 
‚2,426,20,1,127,20,2,568,20,1,142,2 
0,2,426,20,1,159,20,2,568,20,1,127, 
20,2,426,20,1,142,20,2,568, 
20,1,159,20,2,426,20 
639 DATA 1,159,20,2,568,20,1,159,20 
‚2,426,20,1,127,20, 2: 568,20,1,142,2 
0,2,426,20,1,159,?0,2,568.20,1,177, 
RE 2,568, 
20,1,159,20,2,426, 20 
640 DATA 1,147?,20,2,758,20,1, 


758,20,2,379,20 


142,20 


‚2,379,20,1,119,20,2,758,20,1,127,2 
0, >, 379, 20, 1, 142, 20, 2, 758, 20, 1, 119, 
20, 2, 379, 20, 1, 127 ‚20, 2, 758, 

20,1, 142, 20,2,379,20 
541 DATA 1,142,20,2,758,20,1,142,20 

‚2,379,20,1,119,20,2,758,20,1,127,2 
0,2,379,20,1,142,20,2,758,20,1,119, 
?0,2,379,20,1,127,20,2,758, 
20,1,142,20,2,379,20 
642 DATA 1,142,40,2,758,20,2,379,20 

1,106,?20,2,758,20 
643 DATA 1,142,40,2,758,20,2,379,20 

‚1,106,20,2,758,20 
644 DATA 1,213,20,2,758,20,1,213,2 
‚2,379,20,1,127,20,2,758,20,1,142,2 
0,2,379,20,1,159,80,2,758,80 
645 DATA -1,-1,-1 


AHNENTAFEL 


Wen lockt es nicht ein wenig, nachzuforschen, wer 
seine Ahnen waren? Es muß ja nicht immer gleich, der 
Hochadel sein, aber wenn man zum nächsten Fami- 
lienfest endlich einmal erfährt, wer wirklich dazuge- 
hört, dann ist dies schon die kleine Mühe des Abtip- 
pens wert. Mit diesem hier vorgestellten Programm 
von Manfred Fiedler haben Sie die Möglichkeit, 
systematisch Ahnenforschung zu betreiben. 
Ausgehend von einer bestimmten Person, die Sie 
selbst festlegen (etwa Sie), fragt das Programm nach 
den Eltern, Großeltern und so weiter und hält die 
Daten fest. Über wieviel Generationen rückwärts ge- 
gangen wird, können Sie am Anfang des Programm- 
laufes festlegen. 


NICHT ALLE DATEN DER VORFAHREN 
MUSSEN BEKANNT SEIN 


Dabei wird bei jeder Person nach dem Vornamen, dem 
Familiennamen, Geburtstag, Geburtsort, Sterbetag, 
Sterbeort und Beruf gefragt. Ist eine Eingabe, die er- 
wartet wird, nicht bekannt, oder trifft nicht zu, so 
brauchen Sie nur Enter zu drücken und dieser Eintrag 
bleibt dann leer. Wenn Sie später dann diese Daten 
nachtragen wollen, können Sie den Menüpunkt 
„Ändern“ anwählen und dann die entsprechenden 
Daten korrigieren. 

In dem Programm sind Sicherheitsabfragen eingebaut. 
Sie haben also die Möglichkeit, Eingabefehler rechtzei- 
tig zu korrigieren und nach Beendigung der Eingaben 
werden die Daten automatisch abgespeichert. Im Er- 
weiterungsteil haben Sie die Möglichkeit, die Ahnen- 
tafel generationsweise zu vergrößern. Außerdem kön- 
nen Sie hier auch noch Daten Ihrer Ahnen eingeben, 
die Ihnen bisher unbekannt waren. 


AUSDRUCK IST SELBSTVERSTÄNDLICH 


Die Druckausgabe ist für einen NLQ 401 ausgelegt und 
müßte von Ihnen, wenn Sie einen anderen Drucker 
mit anderen Steuerzeichen haben, eventuell angepaßt 
werden. Für jede in der Ahnentafel eingetragene Per- 
son wird ein Blatt ausgedruckt. Sie können dazu End- 
los- oder Einzelblattpapier verwenden. Dazu finden 
Sie neben den Daten der jeweiligen Person noch eine 
laufende Nummer, die als Suchreferenz dient. Darun- 
ter finden Sie links den Namen des Vaters und der 
Mutter und rechts die des Kindes und des Ehegatten, 
ebenfalls mit Referenznummer versehen. 
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LISTING 


1. RRRRRHHERRRSHRRSHHRISRSESSIHEIEIEIGN 
2 = AHNENTAFEL (VORPROGRAMM) * 
3 ** VON ® 
aA '= MANFRED FIEDLER * 
5 #* FUER * 
6 °'* SCHNEIDER AKTIV * 
7 8 CPC 464/664/6128B je* 
[> 5 2 5 22 2 2 2 22 2222 2.2.2202 2022 272202020271 


10 


20 MODE 2:CLEAR 


30 0$-"A HN EN 1 ArF EL 
40 b$=-"copyright b y 

50 c$:-"Manfred Fiedle 
r" 

60 d$:"1100 Wien / est 


errevic h" 

70 LOCATFE 1,10:PRINT 

NEa$))/P))a$ 

80 LOCATE 1,15:PRINT 

NLSIN/P))D$ 

9ND LOCATE 1,18: 

NL C$)) /?))c$ 

100 LGCATE 1,21:PRAINT TAB( INTL(BO-L 

EN ISI))/2))d$ 

110 GGSUB 620 

120 CLS:LOCATE 5,3:PRINT "Einleitun 

g - a ET ne a Ye ar an et ze 

. 1" 

130 LOCATE 5,5:PRINT 

r Ahnentafel . . . 

R >" 

140 LOCATE 5,7:PRINT 

n der Ahnentafel 

R 3" 

350 1L.DCATE 5,9:PRINT ea, d 

er Ahnentafel . . . ... 
A” 

160 I.OCATE 5,11:PRINT 

5 5" 

170 1.DOCATE 5, 13:PRINT "Ende 

FERN = ad 

180 INFUT ""”,gq 

190 DN ug G0OTD 200,630,640,650,660,6 

70 

2D0 CLS:LOCATE 5,1:PRINT 

ogramm ermoeplicht Ihnen 

enliche Ahnenltaferl auf Grund der" 

210 LOCATE 5,3:PRINT "Ihnen zur Ver 

furgung stehenden Datın Ihrer Vorfa 

hren zu erstellen." 

220 LOCATE 5,5:FPRINT "Die Eingabe d 

er einzelnen Daten geschieht in Tol 

gender Reihe :"” 

230 LOCTATE 5,8:PRINT "1. 

e (Hauptvorname)"” 

2AD LOCGATE 5,10:PRINT "2. 

die abgekuerzten Zweit- 


TAB( INT(( 8O-LE 
TABUINT(( 80-LE 


PRINT TAB(INT((BO-LE 


"Erstellung de 


"Aenderungen i 


"Druckausgabe 


"Dieses Pr 
Ihre perso 


der Vornam 


oder 
Drittv 


der 
bzw. 


ornamen” 

250 LOVATE 5,132:PRINT "73. 
ienname bzw. Maedchennaäme"” 
260 LOCATE 5,14:PRINT "4. Geburtsda 


der Famil 


270 LOFATF 5,16:PRINT "5. Geburtsor 
200 LOCATE 5,18: PRINT "6. Sterbeor 
200 LOCATE 5,20:PRINT "7. Sterbedat 
Son LÄCKTE 5,22:PRINT "8. Beruf” 


310 GOSUB 620 
320 LOGATE 5,2:PRINT "Nach jeder ko 


mpletten Eingabe erfolgt eine Siche 
r-"” 

330 LOTATE 5,4:FAINT "heits 
ge durch das Programm, sodass Sie" 
340 1.OCATE 5,6:PRINT "eventuelle Ei 
ngabefehler berichtigen koennen.” 
35C G95URB 620 

360 LOCATE 5,1:PRINT "Im Aenderungs 
teil koennen Sie Daten nachtragen b 
zw.” 

370 LOCATE 5,3:PARINT "korrigieren. 

Genauso wie im Erstellungsteil werd 
on” 

380 1.DOCATE 5,5: 
Programm bei 
t26..” 

390 LOCATE 5, 
ng Ihrer 
auf” 

AOND LOCATE 5,9:PRINT "den neuesten 
Stand gebrachte Ahnentafel abgespei 
shert.” 

210 CGOSUB 62N 

420 LOCATE 5,1:PRINT "Im Erweiterun 
gsteil koennen Sie die Ahnentafel e 
ntweder"” 

A2BD IDCATE 5,3:PRINT 

essipg erweitern 

Moeg-"” 

3a ı MTATE 5,5 
her unbekannte 

ahme" 

750 1 D0TATE 5 


rueckfra 


PRINT 
der 


"Sie 
Eingabe 


durch das 
unterstue 


7:PRINT "Nach Beendipu 
Fingaben wird die gesamte 


"generabtionsma 
oder Sie haben die 


PRINT 
Ahnen 


"lichkeit, bis 
unter Zuhilfon 


Daten bak 


" 


‚?7:FRINT "von 
annter Ahnen nachzutrogen 

ABTEI OCATE 5,9:PARINT "Die 
b>zw. Programmfuehrung ge 
eo die" 

A7TSDEATI 5, 11:1°RINT "seibe 
e im Erstellungsteil." 

ARD OTOSUN 520 

499 LOGCATE 5,1:FRINT 
abe ist fuer einen 9% 
1er 

SCH LOTATE 5,3° 
5:0 KLDGSATE 6,5: 


Zuordnung 
;schleht ou 


Art wi 
"Die Druckausg 
hneider NIG #0 


FRINT 
FRAINT 


"erstellt." 
"Fuer jede in 


Aer Ahnentafel eingetragene Person » 


65 


LISTING 


wird" 

521 LOCATE 
gedruckt. 
elblatt" 
530 LOCATE 5,9:PAINT "oder Endlosfo 
rnulare verwenden.” 
5409 LOCATE 5,11:PRINT 


5,7:PRINT "ein Blatt aus 
Entweder koennen Sie Einz 


"Darauf finde 


n Sie neben den Daten der Person ej 
n © ” 

550 LOCATE 5,13:PAINT "laufende Num 
mer, die als Suchreferenz dient. Da 


runter" 
560 LORCATE 5,15:PRINT "links finden 


sie die Daten des Vaters und der M 
utter"” 
570 LOCATE 5,17:PRINT "und rechts d 


ie des Kindes und des Fhegatten, eb 
enfalls" 

580 LOCATE 5, 19:PRINT 

renznummern versehen." 
5930 70OS0RB 670 

600 LOCATE 5,10:PRINT "Viel Spass b 
ej der Ahnenforschung!" 

612 EDEUB 620:G0TDO 120 

620 LOCATE 50,24:PRINT "Weiter mit 

irgendeiner Taste":CALL £ERB18:CLS:R 


"mit Suchrefe 


ETURN 

620 RUN "ahnenprg.1" 

640 RUN "ahnenprg.2" 

65N RUN "ahnenprg.I” 

860 RUN "ahrenprg.A" 

70 END 

1 RECHERCHIERT u RE 

2 r AHNENPROGRAMM 1 = 
308 VON * 

4 ir MANFRED FIEDLER * 

5 r FUER * 
6 R SCHNEIDER AKTIV * 

7 = EPC  464/664/6128 je* 

B oO (HeNmeresetetengencguuenergeng 
10. * 

20 MODE 2:CLEAR 

30 LOCATE 5,5:PRINT"1, Programmteil 
* Aufbau der Ahnentafel"” 

#0 LICATE 5,9:PRINT"Beachten Sie bi 


te bei der Eingabe, dass Ihnen" 

50 LOCATE 5,11:PRINT"unbekannte Dat 
enfelder einfsch mit der Enter-" 

60 LOCATE 5, 13:FAINT"Taste veberspr 
ungen werden koennen.” 

70 LOCATE 5,15:PRINT"Die Zuordnung 

Vater-Mutter-Kind erfolgt durch” 

80 LOCATE 5,17:PRINT"den Algorithmu 
s selbstaendig.” 

90 LOCATE 5,21:PRINT"Wieviele Gener 

ation inklusive Ihrer eigenen geben 
Sie ein?" 

100 LOCATE 5,23:PRINT"Vorsicht, der 
Speicherplatz kann sehr schnell vo 
llbelegt sein!” 


110 INPUT"”,g 

170 CLS 

120 ° 

140 a=(2°(g+1))-1 

330 DIM a$(a,8) 

340 OPENOUT"dim" 

350 WRITE#9,g,a 

360 CILOSFOUT 

370 FOR x=0 TO g 

380 FOR y-{2°x) TO(2°(x+1)-1) 

390 IF y=1 THEN 430 ELSE IF y-a THE 

N 550:E1.5E 400 

400 IF y/2-=-INT{ y/2)THEN A410 ELSE 42 

(8) 

A410 CLS:LOCATE 28, 1:PRAINT"Vater von 
":PRINT a$ly/2,1);" ";a$ly/2,2);"” 

";a$( y/2,3):0G0T0O 430 

420 C1.S:LOCATE 28, 1:PRINT"Mutter vo 

na ":PRINT a$l(y-1)/2,1);" "za$lly-1 

)/2,2);" ";a$l(y-1)/2,3) 

430 INPUT"Vorname 

"‚a$ly, 1) 

440 INPUT"Abgekuerzte(r) Vorname(n) 

",‚a$ly,2) 

A5SO INPUT"Familienname 

",‚a$(y,3) 

460 INPUT"Geburtsdatum 

",‚a$(y,4) 

470 INPUT"Geburtsort 

”"‚a$(y,5) 

480 INPUT"Sterbedatum 
"‚agly,6) 

490 INPUT"Sterbeort 

"‚a$ly,?) 

500 INPUT"Beruf 

"‚a$(y,8B) 

510 INPUT"Alles korrekt, 

st A eingeben ",x$ 


dann C son 


520 IF x$=-CHRA$L65)THEN 430 ELSE IF 
*x$=CHR$I 67) THEN 530 ELSE 510 

,30 CLS 

540 NEXT y,x 

550 VOPENOUT"ahnendat" 


560 
570 
580 
590 


FOR y-1 TO a 

FOR x=1 T0 B 

WAITE#9,a$(y,x) 

NEXT x,y 

600 TLOSEOUT 

610 CLS:PRINT"Alle von Ihnen eingeg 

ebenen Daten sind nun abgespeichert 
“ 

620 1L.OCATE 5,5:PRINT"”Zurueck zur Ei 

nleitung . . . 2 2.2.2.1” 

630 LDCATE 5,7:PARINT"zur Aenderung 
der Ahnentafel . . . . . 2" 

640 LOCATE 5,9:PRINT"zur Erweiterun 
g der Ahnentafel . . . . 3" 

650 LGCCAIE 5,11:PRINT"zur Druckerau 
Sfabe: .. 5 wre. St 

6650 LOCATE 5,13:PRINT"Ende u ar 


66 


Enns nenn een rasen Er En 


FRE = Ya 


INPUT"",q 

DN q GOTO 690,700,710,720,730 
CHAIN"ahnentaf.bas”, 120 
RUN"ahnenprg.2" 
RUN”ahnenprg.3" 
RUN"ahnenprg.4” 

730 END 


1 (RRRHRHERNSIHRUNENTEETEIEG 2 2< 
2 AHNENPROGRAMM 2 2 
3 *: VON * 
a MANFRED FIEDLER = 
5% FUER ” 
6 + SCHNEIDER AKTIV * 
72 '%* CPC 464/664/6128  je* 
8 I!RENSHUNUERUNNNSENTUTNEN SNEEHR 
10 

20 CIEAR:MODE 2 

30 LOCATE 5,5:PRINT"2. 


Programmteil 
= Aenderungen in der Ahnentafel"” 
40 LOCATE 5,10:PRINT "Die Daten des 
Vaters desf{r) 
links oben” 
50 LORCATE 5,11:PRINT "auf dem Schir 

m." 

60 LDOCATE 5,13:PRINT "Jene der Mutt 
er des{r) Gesuchten befinden 
leich darunter“ 

70 LOCATE 5,15:PRINT "Die des Kinde 
s des{r) Gesuchten finden sich rech 
ts oben auf" 

80 LOCATE 5,16:PRINT"auf dem Schirm 


sesuchten erscheinen 


sich g 


90 1LOCATF 5,18:PRINT "Die Angaben u 
eber den Ehegatten finden Sie pleic 
h darunter, ” 

100 LOCATE 5,19:PRINT "jene des Kin 
des auf der rechten Seite des Schir 
mes." 

110 LOCATE 5,21:PRINT "Wogepgen die 
Daten des{r) Gesuchten sich unter d 
iesem Vierer-" 

12D LOCATE 5,22:PRINT"block mittig 
auf dem Schirm befinden.” 

130 LDOCATE 1,24:PRINT "Bitte etwas 
Geduld die bereits gespeicherten 
Daten werden geladen!” 

140 OPENIN "dim"” 

150 INPUT#9,g,a 

160 CLOSEIN 

170 DIM a$(a,B) 

180 OPENIN "ahnendat" 

190 y=1 

200 WHILE NOT EOF 

?10 FOR x=1 TO 8 

220 INPUT#9,a$(y,x) 

230 NEXT x 

240 y=y+1 

250 WEND 

260 CLOSEIN 


270 CLS:PRINT "Geben Sie bitte Vor- 


LISTING 


und Familienname des(r) Gesuchten 
ein" 


BO INPUT "Vornamen 


"‚b1$ 

290 INPUT "Familienname 
"b3$ 

300 y=1 


310 WHILE NOT y=a 

320 IF a$(y,1)=b1$ AND a$ly,3)=b3$ 
THEN 400 ELSE 330 

330 y-y+1 

340 WEND 

350 CLS:PRINT "Die Daten des(r) Ges 
uchten sind nicht verzeichnet." 

360 PRINT "Moechten Sie im Aenderun 


gsteil weitermachen....... 1" 

>70 PRINT "oder Ihre Arbeit beenden 
nn" 

380 INPUT "",gq 

390 ON y GOTO 270,850 

ADG CıS 

410 IF y*?>a OR (y*?2)+1>a THEN 500 

FLSE 420 

420 FOR x=-1 TO 2 

430 IF x=1 THEN z y?’2:PRINT "Vater 

des{r) Gesuchten" 

440 IF x=2 THEN z2=y*2+1:PRINT "Mutt 


er des{r) Gesuchten" 

ASO PRINT a$(z,1);" ";a$lz,2);" ":a 

$( 2,3) 

A460 PRINT "* 

5) 

470 PHINT CHR$EBOF) ;" ";a$(z,6);" i 
n ";a$(z,7) 

480 PRINT a$(z,8) 

490 NEXT x 

500 LOCATE 40,1:PRINT "Kind des({r) 

Gesuchten"” 

510 IF y/2=INT(y/2) THEN x=y/2 ELSE 
x=(y-1)/2 

52D LOCATE 40,2:PRINT a$lx,1);" "za 

$0x,2);”" ";a$[x,3) 

530 1.0CATE 40,3:PRINT "* 
"in ";a$(x,5) 

540 LOCATE 40,4:FRINT CHRAS( EOF);" 
;a$(x,6);" in ";a$(x,7) 

550 LOCATE 40,5:PRINT a$(x,B) 

5650 LOCATE 40,6:PRINT "Verheiratet 

(gewesen) mit:"” 
570 IF y/2=-INT( y/2) 
x=y-1 

580 LOCATE 40,7:PRINT a$lx,1);" ":a 

$(x,2);”" ";a$lx,3) 

590 LOCATE 40,8:PRINT "* 
"in ";a$(x,5) 

600 LOCATE 40,9:PRINT CHA$(E9F);" " 
;a$(x,6);" in ";a$lx,?) 

610 LOCATE 40, 10:PRINT a$lx,B) 

620 LOCATE 15,11:PRINT "Der (die) G 

esuchte" 

630 LOUCATE 


"‚a$(z,41;" in ":a$flz, 


";a$(x,4); 


THEN x=y+1 EISE 


":ablx,d); 


15,12:PAINT "1. 


67 


Vorname » 


Nr. 8/August 87 3. Jahrgang 0 USTNG | 


";a$(y,1);SPC(20) 
640 LOCATE 15,13:PRINT "2. Abgekuer 
zte(r) Vorname(n)";a$(y,2) ;SPC( 20) 
650 LOCATE 15,14:PRINT "3. Familien 


name "-a$ly,3) ;5PC(20) 
660 I DOCATE 15,15:PRINT "4. Geburtsd 
atum "-3%$(y,4) ;SPC( 20) 
67D LOCATE 15,16:PRINT "5. Geburt.so 
rt ";8$(y,5);SPC( 20) 
680 L.DATATE 15,17:PRINT "6. Sterbeda 
tum ";a$ly,6);SPC( 20) 
690 1L.OCATE 15,18:PRINT "7. Sterbeor 
t ";a$(y,7) ;SPC( 20) 


700 1.0CATE 15,19:PRINT "B. Beruf 
";a$(y,8) ;SPC( 20) 

7130 PRINT "Geben Sie jenes Feld an, 

dass Sie aendern moechten; 9 fuer 

Ende der Eingabe" 

720 PRINT "bzw. weitersuchen; 10, s 

ollte es nicht der Gesuchte sein, a 

ber moeglicherweise"” 

730 PRINT "existiert ein Vorfahre g 

leichen Namens; 11 zum Beenden, die 

bis jetzt ge-" 

740 PRINT"aenderten Daten werden ab 

gespeichert." 


JEDER TITEL _ 750 LOCATE 1,?24:INPUT "",q 


760 ON q GOTO 770,780,790,800,810,8 


EIN TREFFE 20,830,840,270, 330,850 


= 770 LOCATE 43,12:INPUT "",a$(y,1):G 


| = 0TO 620 
Schneider >00 LOCATE a3, 13:INPUT "",a8(y,2):0 
C ee 0TO 620 


DM 14,80 N 790 LOCATE 43, 14:INPUT "",a$(ly,3):6G 

68 124 5 0TO 620 
m Her | 800 LOCATE 43,15:INPUT "",a$(y,4):G 
s 0TO 620 
810 LOCATE 43,16: INPUT "",a$(y,5):G 
0TO 620 
820 LOCATF 43,17: INPUT "",a$l y,6):G 
0OTN 620 
830 LOCATE 43,18:INPUT "",a$ly,7):G 
0TO 620 
840 LOCGATE 43,19:INPUT "",a$(ly,8):G 
0TO 620 
850 OPENOUT "ahnendat”:y=1:WHILE y< 
a:FOR x=1 TO 8:WRITE #9,a$(y,x):NEX 
T x:y:=y+1:WEND:CLOSEOUT 
860 OPENOUT "ahnendat" 
870 y=1 
380 WHILF y<a 
39n FOR x=1 TO 8 
900 WAITE#9,a$(y,x) 
. nn Pl 910 NEXT x 
m: eu... 920 y=y+1 
Programm... 4 : 930 WEND 

en . 

Hilfen- eg P 940 CLOSEOUT 


® - E. 


LISTING 


VO RESET IE EEE EEE 
2% AHNENPROGRAMM 3 * 
3 #* VON * 
a 8 MANFRED FIEDLER * 
I FUER # 
6 ’* SCHNEIDER AKTIV * 
727% CPC 464/664/6128B je* 


BO RURRREEUCHECHCHUNNUNHCHENENE 
10 

2D MODE 2:CLEAR 

30 LOCATE 5,5:PRINT "3. Programmtei 
1 = Erweiterung der Ahnentafel"” 

40 LOCATE 5,9:PRINT "Sie koennen in 
diesem Programmteil"” 

50 LOCATE 5,11:PRINT "1. an bereits 
bekannte Daten von Ahnen anknuepfe 


n, 

60 LOCATE 5,13:PRINT "sodass eine n 

aechstfruehere Generation erfasst w 
ird."” 

70 LOCATE 5,15:PRINT "Geben Sie in 

diesem Fall bei der Abfrage fuer" 

80 LOCATE 5,17:PRINT "die Generatio 

nenerweiterung ’0’ ein. 

90 GOSUB 820 

100 CLS:LOCATE 5,11:PRINT "Mehr als 
total 10 Generationen sollten Sie 

aus” 

110 LOCATE 5,13:PRINT "aus Gruenden 
der Speicherkapszitaet nicht von" 
120 LOCATE 5,15:PRINT "Ihrem Schnei 
der CPC verlangen. Ausserdem koennt 
e"” 

130 LOCATE 5,17:PRINT "Ihre Floppy 

Disk den gigantischen Datenanfall"” 
140 LOCATE 5,19:PRINT "nicht verkra 

ften.” 

150 GOSUB 820 

160 OPENIN "dim":INPUT #9,g,3:CLOSE 

IN 
170 
180 


OPENIN "dim"” 

INPUT#9,g,a 

190 CIL.OSEIN 

200 CLS:LOCATE 5,10:PARINT "Ihre Ahn 
entafel besteht aus ";g;"” Generatio 
nen.” 

210 LOCATE 5,12:INPUT"Um wieviele G 
enerationen moechten Sie sie erweit 
ern ";g1 

220 g2=g+g1:a2=[(2°g2)-1 

230 LOCATE 1,24:PRINT "Bitte etwas 

Geduld, die bereits gespeicherten D 
aten werden geladen" 

240 OPENOUT "dim"” 

250 WRITE #9,g2,a2 

260 CLOSEOUT 

270 DIM a$(a2,B) 

250 OPENIN "ahnendat” 

290 y=1 


300 WHILE NOT EOF: 

310 FOR x=1 TO 8 

320 INPUT#9,a$(y,x) 

330 NEXT x 

340 y=-y+1 

350 WEND 

360 CLOSEIN 

370 CLS:PRINT "Geben Sie Vor- und F 
amiliennamen desjenigen Ahnen ein, 
an den Sie" 


380 PRINT "die naechstfruehere Gene 
ration anknuepfen wollen.” 

390 INPUT "Vorname "bi 
$ 

400 INPUT "Familienname ",b3 
$ 

410 y=a2 

420 WHILE NOT y=O 

430 IF a$ly,1)= b1$ AND a$(ly,3)=b3$ 


THEN 460 ELSE 440 
440 y=y-1 
450 WEND 
460 CLS:PAINT "Bis jetzt aeltest be 
kannter Ahne in dieser Reihe" 
470 PRINT a$ly,1);” ";a$ly,2);" N. 
$ly,9 
450 PRINT "* ";a$(y,4);"” in ";a$ly, 
5) 
490 PRINT CHRA$(E9F);” ";a$ly,6);" i 
n ";a$(y,?) 
500 PRINT a$(y,8) 
510 LOCATE 1,6:PRINT "Ist das der A 
hne, den Sie suchen ....’J’" 
520 LOCATE 1,7:PRINT "oder koennte 
es ein anderer sein ....’Ww’"” 
530 INPUT "";q$ 
540 IF q$=CHR$( 74) THEN 550 ELSE If 
q$=CHR$( 87) THEN 440 ELSE 510 
550 FOR x=1 TO 2 
560 IF x=1 THEN z=y*#2:PRINT "Eingab 
e der Daten des Vaters":GOTO 580 
570 IF x=2 THEN z=y*2+1:PRINT "Eing 
abe der Daten der Mutter" 
550 INPUT "Vorname ” 
‚a$(z,1) 
590 INPUT 
‚a$( z,2) 
600 INPUT 
‚a$( 2,3) 
610 INPUT 
‚a$(z,4) 
620 INPUT 
‚a$( z,5) 
630 INPUT 
‚a$( z,6) 
640 INPUT 
‚e$(z,7) 
650 INPUT 
‚a$( 2,8) 
660 NEXT x 


"Abgekuerzte(r) Vornamen" 
"Familienname ge 
"Geburtsdatum = 
"Geburtsort = 
"Sterbedatum u 
"Sterbeort = 


"Beruf > 


69 


Aater ja) Gesuchten 
ıR 
x B1.81.1944 ın Dume ? 
iR 


ter 
Hutter des(r) Gesuchten 
Astrid renlin 


LISTING 


670 INPUT "Alles korrekt eingegeben 
‚ dann geben Sie ’J’, ansonst ’N’ e 
in ",q$ 

680 IF q$="J" THEN 690 ELSE 460 

690 CLS:PRINT "Moechten Sie in dies 
em Erweiterungsteil weitermachen .. 
1” 


INPUT "oder beenden 


ON q GOTO 370,720 

OPENOUT "ahnendat” 

y-1 

WHILE y<a2 

FOR x=1 TO 8 

WARITE#9,a$( y,x) 

NEXT x 

y-y+1 

WEND 

CLOSEOUT 

CHAIN "ahnentaf.bas", 120 

820 LOCATE 50,24:PRINT "Weiter mit 
irgendeiner Taste":CALL &BB18:RETUR 
N 


Kind des(r) Gesuchten 
* iR 
tin 


Verheiratet (gewesen) nit: 


“28.02.1921 in Kohle i2 m 
an sm 
Der (die) Gesuchte 
i, Veraane 
&. hbgekuerzteir) Vornane(n) i 
4. Kheieinten ir 
atın ‚Bi. 
? Geburtsort Waldues 
eruf 


%. ohne 
Gehen Sie jenes Feld an, dass Sıe aendern ncechten: 3 fuer Ende der Eingabe 


IC RERRESESESESESERSESERESERE SEHE SER RE HERE SIE SE STREICH 


2 AHNENPROGRAMM 4 * 
3 #8 VON * 
a '* MANFRED FIEDLER * 
5 '# FUER * 
6 '’* SCHNEIDER AKTIV * 
7 8 CPC 464/664/6128 je* 
[5 ES 2 322 2 2 52 2 2 22 2 2.2.2 22.22 22 2 een 


10 
20 MODE 2:CLEAR 
30 LOCATE 5,5:PRINT"4. Programmteil 
= Druckausgabe der Ahnentafel"” 
40 LOCATE 5,9:PRINT"Nun folgt die v 
ollautomatische Druckausgabe der Ah 
nentafel” 
50 LOCATE 5,11:PARINT"Fuer jede in d 
er Ahnentafel vermerkte Person erst 
ellt das” 
60 LOCATE 5,13:PRINT"Druckprogramm 
einen Ausdruck auf einer Seite nach 
folgendem” 
70 LOCATE 5, 15:PRINT"Schema (genaus 
o wie im 2. Programmteil) :"” 
80 LOCATE 20, 17:PAINT"Person"” 
90 LOCATE 5,19:PRINT"Vater 

Kind" 
100 LOCATE 5,21:PRINT"”Mutter 

Gatte"” 

110 LOCATE 50,24:PRINT"Weiter mit i 
rgendeiner Taste":CALL EBB18:CL5S 
120 LOCATE 5,5:PRINT"Jede angefuehr 
te Person hat rechts aussen neben d 
en" 
130 LOCATE 5,7:PRINT"Daten eine Num 
mer angefuehrt, die als Suchreferen 
z dient." 
140 LOCATE 5,9:PAINT"Unterhalb der 
Daten des Vaters bzw. der Mutter un 


hzw. veitersuchen: 18, sollte es richt der Gesuchte sein, aber 
sxistiert eın Vorfahre aleichen Naneas; 11 
aenderten Daten werden abgespeichert, 


licherweise 


zun Beenden, die his jetzt ge- d auch 


150 LOCATE 5, 11:PRINT"unterhalb der 
er des Ehegatten finden Sie ebenfal 
ls solche" 

160 LOCATE 5, 13:PRINT"Referenznumme 
rn, die auf deren Kind, Eltern" 

170 LOCATE 5,15:PRINT"und Ehegatten 
hinweisen." 

180 LOCATE 5,23:PRINT"Bitte etwas G 

eduld - die Daten werden geladen" 
190 LOCATE 5,24:PRINT"und der Druck 

vorgang beginnt. DRUCKER EINGESCHAL 

21" 

OPENIN "dim" 

INPUT#9,g,a 

CLOSEIN 

DIM a$(a,B) 

OPENIN"ahnendat” 

y-1 

WHILE NOT EOF 

FOR x=1 TO 8 

INPUT#9,a$(y,x) 


TRICKS: 
JEDEN MONAT 


SCHNEIDER 
AKTIV 


NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


Das unabhängige Magazin 
_ für Schneider-Computer 


Finden $ie Ihre SCHNEIDER AKTIV nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder ‚‚Ihr‘‘ Kiosk 
nicht beliefert wurde? Kein Problem! Für ganze 60 


DM liefern wir Ihnen per Post zwölf Hefte ins Haus { y. 


(Ausland 80 DM). Einfach den Bestellschein aus- 
schneiden — fotokopieren oder abschreiben, in ei- 
nen Briefumschlag und ab per Post (Achtung: Porto 
nicht vergessen). SCHNEIDER AKTIV kommt dann 
pünktlich ins Haus. 


KOMMT _ 
REGELMÄSSIG 
ZU IHNEN 


INS HAUS 


GARANTIE! 

Sie können diesen Abo-Auftrag bin- 
nen einer Woche nach Eingang der 
Abo-Bestätigung durch den Verlag 
widerrufen — Postkarte genügt. An- 
sonsten läuft dieser Auftrag jeweils 
für zwölf Ausgaben, wenn ihm nicht 
vier Wochen vor Ablauf widerspro- 
chen wird, weiter. 


Mr 


N 


| — 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 


SIND KOSTENLOS 


Das bietet Ihnen ab sofort SCHNEIDER AKTIV: KLEINAN- 
ZEIGEN SIND KOSTENLOS FÜR PRIVATANBIETER! Su- 
chen Sie etwas, haben Sie etwas zu verkaufen, zu tau- 
schen, wollen Sie einen Club gründen? Coupon ausfüllen, 
auf Postkarte kleben oder in Briefumschlag stecken und 
abschicken. So einfach geht das. Wollen Sie das Heft 
nicht zerschneiden, können Sie den Coupon auch fotoko- 
pieren. Oder einfach den Anzeigentext uns so schicken, 
auf Postkarte oder im Brief. Aber bitte mit Druckbuchsta- 
ben oder in Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und /oder Telefonnum- 
mer sollten acht Zeilen ä 28 Anschläge nicht überschrit- 
ten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater Inserenten 


kostenlos, gewerbliche Anzeigen kosten pro Millimeter 
DM 5,00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

DIE INSERTION IST NICHT VOM HEFTKAUF ABHÄNGIG! 
Chiffre-Anzeigen sind nicht gestattet! Wir behalten uns 
vor, Anzeigen, die gegen rechtliche, sittliche oder sonsti- 
ge Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, kein 
Rechtsanspruch auf den Abdruck in der nächsten Ausga- 


Wir behalten uns vor, Anzeigen, die nicht zum Themen- 
kreis des Heftes — Computer — gehören, nur insoweit 
zu berücksichtigen, wie es der Umfang des kostenlosen 
Anzeigenteils zuläßt. 
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ANZEIGENSERVICE 


Die große Börse für jeden Zweck in SCHNEIDER AKTIV. Kostenlos für Privat-Inserenten. Spottbillig für gewerbliche Anbieter. Ein- 
fach Coupon ausschneiden, fotokopieren 0.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — Unsere Adresse steht 
auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, daß wir offensicht- 
lich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vorbehalten müssen, 
insbesondere, wenn deren Inhalt gegen geltendes Recht verstößt. Private Chiffreanzeigen werden nicht aufgenommen. Für Pri- 
vatanbieter: etwa bis zu acht Zeilen & 28 Anschläge. Für gewerbliche Anbieter: 5 DM p.mm. bei beliebiger Größe. 


SENSSNBEINEREBNDFRRARBR AS BEN 


SCHNEIDER AKTIV Name 
Anzeigenabteilg. Vorname 
Postfach 1107 Straße /Hausnr. 
8044 Lohhof PLZ/Ort 


> ARE RESPIEHE EEE ER ESSE OR RGREREE SE ERBEN ENGER SENECRE RR EEREIEHNR EEE REEN ESEL LER REES BENDER IRRE 
ABO-SERVICE-KARTE 


SSSnSEREESSSSGESBERSSESESERSEEELERSERESERLESEESESEHERSLESEEEREREEESEERSERSEEEREEESE SELLER EEEE REES En SER RSS n SER RER USER RR RES RR RAR ERS SSR nH RC han 


Ich nehme zur Kenntnis, Ja, ich möchte von Ihrem Angebot Ausgaben an untenstehende An- 
daß die Belieferung Gebrauch machen. schrift. Wenn ich nicht vier Wochen 
erst beginnt, wenn die Bitte senden Sie mir bis auf Widerruf vor Ablauf kündige, läuft diese 
Abo-Gebühr dem Verlag ab sofort jeweils die nächsten zwölf Abmachung automatisch weiter. 
zugegangen ist! Name 

Vorname 

Straße /Hausnr. 

PLZ/Ort 


Ich bezahle: 

U per beiliegendem Verrechnungsscheck 

U] gegen Rechnung 

U] bargeldios per Bankeinzug von meinem Konto 
bei (Bank) und Ort 
Kontonummer 
Bankleitzahl 
(steht auf jedem Kontoauszug) 


SCHNEIDER AKTIV Unterschrift 


Abo-Service SP/4 Von meinem Widers 
Postfach 1107 on pruchsrecht habe ich Kenntnis genommen 


8044 Unterschleißheim Unterschrift 


SP/4 
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PROGRANMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingun- 
gen die Listings dieses Heftes auf 


D Kassetten (60 DM) OD Diskette (60 DM) 


Ich zahle: (Zutreffendes bite ankreuzen!) 
per beigefügten Scheck LI Schein U 


Gegen Bankabbuchung am Versandtag U 

Meine Bank (mit Ortsname) 

Meine Kontonummer 

Meine Bankleitzahl (steht auf jedem Bankauszug) 

Vorname Nachname 

Str./Nr. PLZ/Ort Sp/4 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. 
Umtausch bei Nichtfunktionieren. 


Unterschrift 
Bitte ausschneiden und einsenden an 


SCHNEIDER AKTIV 
KASSETTENSERVICE SP/4 
Postfach 1107 

8044 Unterschleißheim 


m 


LESER WERBEN LESER 


GEWINNEN SIE EINE COMPUTER- 
UHR! Und zusätzlich eventuell 
noch ein großes Computer-Buch. 
Oder ein Paket Disketten. ODER 
AUCH EINEN COMPUTER — 
ODER EINE DISKETTENSTATION! 
Wie? Sie werben einen Abonnen- 
ten. Dann haben Sie auf jeden Fall 
schon die Computer-Uhr gewon- 
nen. Zusätzlich verlosen wir unter 
allen, die mitmachen, jeden Mo- 
nat vier weitere wertvolle Preise. 
Und alle sechs Monate gibt es ei- 
nen Hauptpreis unter allen Abo- 
Werbern zu gewinnen. Also: Mit- 
machen. Mitgewinnen. 


Ja, ich mache mit beim Abo- 
Wettbewerb. Ich habe 


Herrn/Frau 
Straße /Hausnr. 
PLZ/Ort 


als neuen Abonnenten von 
SCHNEIDER AKTIV geworben. 


Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit- 
schrift. 

Als Prämie erhalte ich nach Ein- 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie abge- 
bildet, und nehme zusätzlich noch 
an der Verlosung des Monats so- 
wie der halbjährlichen Hauptprei- 
so teil. Mir ist bekannt, daß der 
Rechtsweg ausgeschlossen ist. 
Meinen Preis senden Sie an 


Name 
Straße /Hsnr. 
PLZ/Ort 


(Bitte ausschneiden und zusam- 
men mit der Abo-Bestellkarte links 


einsenden!) SpP/4 


das neue 


Das unabhängige Magazin 
für Schneider-Computer 
CPC 464-CPC 664 
CPC 6128- Schneider-PC 


reyfell 
ogfight 
187 | 
ınetik 


na 


Nr. 8/August 87 


3. Jahrgang 


LISTING 


290 NEXT x 

300 y=y+1 

310 WEND 

320 CLOSEIN 

330 GOSUB 880 

340 y=1 

350 WHILE y<a+1 

360 IF LEN(a$(y,1))=O AND LEN( a$(y, 
3))=-0O THEN 720 

370 PRINT#8,CHR$( 27) ;CHR$C 71) ;CHA$C( 
14) ; TAB( 36) ; :PRINT#8, USING" AHHH" ;y 

380 PRINT#8,TAB( 30) a$(y,1);" ":a$(ly 
»2);" ";a$ly,3) 

390 PAINT#8,TAB(30)"* ";a$ly,4) 

400 PRINT#8,TAB( 30) a$(y,5) 

410 PRINT#B,TAB( 30) "+ ";a$(y,6) 

420 PRINT#8,TAB( 30) a$(y,?) 

430 PRINT#8,TAB( 30) a$(y,8) 

440 FOR 1=1 TO 10:PRINT#8,CHR$( 10): 
NEXT 1 

450 IF y=1 THEN GOSUB 770:G0T0O 700 

460 IF y/2=INT(y/2)THEN x=y/2 ELSE 

x=(y-1)/2 

470 PRINT#8,CHR$( 14) ; TAB( 6) y*2; TAB( 
26) x 

480 PRINT#8,TAB( 10) a$( y*2,1);" ";a$ 
(y*t2,2);” ";a$(y*2,3); TAB(S0)a$(x,1 
);" "z5a$lx,2);" ";a$lx,3) 

490 PRINT#8,TAB( 10)"* ";a$(y*2,4);T 
AB(50)"* ";a$(x,4) 

500 PRINT#8,TAB( 10) a$( y*2,5) ;TAB( 50 
Ja$(x,5) 

510 PRINT#8,TAB(10)"”+ ";a$(y*2,6);T 
AB(50)"+ ";a$(x,6) 

520 PRINT#B,TAB( 10) a$( y*2,7) ;TAB( 50 
Ja$lx,” 

530 PRINT#8,TAB( 10) a$( y*2,8) ; TAB( 50 
Ja$(x,8) 

540 IF x/2=INT(x/2)THEN z=x+1 ELSE 

z=x-1 

550 PRINT#8,CHR$( 10) 

560 PRINT#8,TAB( 10) "Vater von ";y;T 
AB(50)"Kind des(r) ";y 

570 PRINT#8,TAB( 10) "Kind von ";yr2 
#2;" und ";(y*2#2)+1;:IF z=0 THEN 5 
80 ELSE PRINT#8,TAB(50) "Ehe mit 

580 FOR 1-1 TO 5:PRINT#8,CHR$( 10) :N 
EXT 1 

590 IF y/2=INT( y/2)THEN x=y+1 ELSE 

x=y-1 

600 PRINT#8B,CHR$( 14) ; TAB( 6) y#2+1; TA 
B( 26) x 

610 PAINT#8,TAB( 10) a$( y*2+1,1);" er 
a$l y*2+1,2);"” ";a$l y*2+1,3); TAB(50) 
a$lx,1);" ";a$lx,2);" ";a$lx,3) 

620 PRINT#8,TAB( 10)"* ";a$( y*2+1,4) 
; TAB(50)"* ";a$lx,4) 

630 PRINT#8,TAB( 10) a$( y*2+1,5) ; TAB( 
50) a$lx,5) 


640 PRINT#8,TAB( 10)"”+ ";a$( y*2+1,6) 
;TAB(50)"+ ";a$(x,6) 

650 PRINT#8,TAB( 10) a$( y*2+1,7) ; TABL 
50)a$(x,7) 

660 PRINT#8,TAB( 10) a$( y*2+1,8) ;TAB( 
50)3$(x,8) 

670 PRINT#8B,CHR$( 10) 

680 PRINT#8,TAB( 10) "Mutter von ";y 
:IF z=0 THEN 690 ELSE PRINT#8, TAB( 
O)"Ehe mit nz 

690 PRINT#8,TAB( 10) "Kind von ":(y 
*2#2)+2;" und ";( y*2*2)+3; TAB( 50) "K 
ind von";x*2;" und ";x*#2+1 

700 PRINT#8,CHR$( 12) 

?10 FOR 1=1 TO 3:PRINT#8,CHR$( 10) :N 
EXT 1 

720 y=-y+1 

730 WEND 

740 IERA, "ahnen???.bak"” 

750 CHAIN"ahnentaf.bas”, 120 

760 END 

770 PRINT#8,CHR$( 14) ; TAB( 6) y*2; TAB( 
26) y*2+1 

780 PRINT#8,TAB( 10) a$( y*2,1);" ";a$ 
(y*#2,2);” "‚a$(ly*2,3); TAB(50)a$( y*2 
+1,1);5" ";a$ly#2+1,2);" ";a$ly*2+1, 
3) 

790 PRINT#8,TAB( 10)"* ";a$(y*2,4);T 
AB(50)”* ";a$ly*2+1,4) 

800 PRINT#8,TAB( 10) a$( y*2,5) ;TAB( 50 
Ja$( y*2+1,5) 

810 PRINT#8,TAB( 10)"+ ";a$(l y#2,6);T 
AB(50)”"+ ";a$l y*2+1,6) 

820 PRINT#8,TAB( 10)a$( y*2,7) ;TAB( 50 
Ja$l y*2+1,7) 

830 PRINT#8,TAB( 10)a$( y*2,8) ;TAB( 50 
Ja$l y*2+1,8) 

840 PRINT#8,CHR$( 10) 


’ 
5 


850 PRINT#8,TAB( 10)”"Vater von ";y;T 
AB(S0) "Mutter von ";y 
860 PRINT#8,TAB( 10)"Kind von ";y#*2 


*2;” und ";( y*2*2)+1;TAB(50) "Kind v 
on ";(y*2*2)+2;" und ";( y*2*2) +3 

870 RETURN 

880 a$="AHN EN - ":b$=-"TAFE 

L":c$=a$( 1,1)+"” "+a$l1,2)+" "+a$lı1, 
3) :d$=a$( 1,4) :e$=a$( 1,5) 

890 PRINT#8,CHR$( 27) ; CHR$( 67) ; CHR$( 
0) ;CHA$( 12) ; :PRINT#8, CHR$( 27) ;CHR$C 
52) ; :PRINT#8, CHA$( 27) ;CHR$( 71); 

900 FOR x=1 TO 5:PRINT#8,CHR$( 10) :N 
EXT 

910 PRINT#8,CHRA$( 14) ; TAB( INT((40-LE 
N(a$))/2))a$ 

920 GOSUB 1020 

930 PRINT#8,CHR$( 14) ; TAB( INT( (40-LE 
NEb$))/2))b$ 

940 GOSUB 1020 


950 PRINT#8,CHR$( 14) ; TABÜINT((40-LE 29 


NEC$))/2))c$ 
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| LISTING 


960 GOSUB 1020 — Die gleichförmige Bewegung 
970 PRINT#8,CHR$( 14) ;TAB[INT((AO-LE N Scene beschleunigte Bewegung 
N(d$))/2))d$ ee 


— Der widerstandsfreie schräge Wurf 
9850 GOSUB 1020 — Die gleichförmige Drehbewegung 
990 PRINT#8,CHR$( 14) ; TAB( INT((AD-LE — Programmende 


N(e$))/2))e$ Von den jeweiligen Untermenüs aus kann man nun ver- 
1000 PRINT#8,CHR$( 12) Le an wie zum Beispiel Beschleunigung, 

n . allzeit und Endgeschwindigkeit, berechnen lassen. 
1010 PRINT#B,CHR$(27) ;CHA$(72); Nach der Eingabe des gesuchten Parameters gelangt 


1020 FOR x=1 TO 3:PRINT#8,CHR$( 10) : man in den Eingabemodus, wo nun die geforderten 
NEXT: RETURN Werte eingegeben werden müssen. 


DYNAMIKUS|. _ _ 
PHYSI KM Beben, an en in andere 
LE # CHT Sie haben num die Rorslichkeit, mischen IB Fregrumpenkten sa 

GEMACHT 


Physik — und hier wieder der Teilbereich der Dyna- 
mik — bereitet vielen Schülern Kopfzerbrechen. 
Und während man mit rauchendem Kopf über den 
Büchern sitzt und nach der richtigen Formel sucht, 
steht der CPC ungenutzt in der Ecke. Weil dies nun 
einmal schade ist, entwickelte Markus Römmen ein 
Programm, welches wieder einmal einen großen Teil Nach jeder abgeschlossenen Berechnung erscheint dann 
der Hausaufgaben erledigen kann, darüber hinaus ein Hilfsmenü, von dem aus Sie ins Hauptmenü oder 
aber auch nach dem Schulabschluß — entsprechender ins Untermenü zurückkommen oder neue Berechnun- 


ie sleichfoerai 
iefll 


Berufsweg vorausgesetzt — noch nützlich ist. gen anstellen können. 
Also: Ran an die Tasten. Zur Unterstützung der Eingabewerte wird bei jeder 
— [0 Abfrage eine Grafik gezeigt, die die Berechnungen 
FENSTERTECHNIK MIT BEQUEMER und die verschiedenen Abhängigkeiten untereinander 
MENÜFÜHRUNG optisch verdeutlicht. 

Das Programm ist verständlich aufgebaut, voll menü- 
Das Programm Dynamikus ist für alle diejenigen ge- gesteuert und dadurch vielseitig einsetzbar. Durch die 


macht und geeignet, die sich in der Schule und im Be- schnelle Ausführung der Berechnungen und die über- 
ruf häufig mit Berechnungen im Bereich der Dynamik 
beschäftigen müssen. Nach dem Start des Programms 

erscheinen drei Windows auf dem Bildschirm. In dem BEREIEFREREZERTE 
einen erscheint ein kleiner Begrüßungstext, im zwei- 
ten sieht man dann schon das Hauptmenü, von dem Bitte geben Sie die Beschlemigung ein (in w/st?) :E? 8 
a Tastendruck in die einzelnen Untermenüs Bitte geben Sie die Zeit ein (in Sehuden):iEP 15 


AUFTEILUNG UND FUNKTION DER WINDOWS Site 07 07 ee 
PERBERSEFSEIENES SEI ERLE SEPONESAEDPEEBEWEIBENEIP EEE SEES HERRIGBEEBEBERSEBERRSIEE ER hat der Kserper genau Neter zurueckgelest ! 
Im Window 1, das sich links oben befindet, erfolgen 
sämtliche Berechnungen. Ebenso erfolgen hier auch 
die Eingaben für die Berechnungen. 

Das Window 2 (links unten) wird benutzt, um die 
Menüs einzublenden sowie zur Einblendung der Grafi- 
ken, die die Berechnung unterstützen. 

Das Window 3 dient nach jeder abgeschlossenen Be- 
rechnung zur Anzeige eines kleinen Hilfsmenüs. 


DIE MENÜS 


| sichtliche Darstellung der Ergebnisse kann man sich 
Vom Hauptmenü aus können die sechs Programmteile in kurzer Zeit Werte berechnen lassen, für die man 
aufgerufen werden. Diese sind folgende: sonst „von Hand“ wesentlich länger brauchen würde. 
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LISTING 


5 ON BREAK CONT 
10 PRRRHRRSHHREISHRIHHIHHIRIHIRERE III HIT 


20 ’* DYNAMIKUS * 
30 ’#* VON # 
40 '* MARKUS ROEMMEN #* 
a] ı FUER * 
60 ’* SCHNEIDER AKTIV # 
0 ’# CPC 664/6128 je* 


BO RREHRHUCHERECHCHUHECHTHEHENEHEE 
90 ’Grundaufbau des Bildschirms 

100 

110 CLS:MODE ?:INK 1,0:INK 0,26:BOR 
DER 26 

120 CLS 

130 PLOT 4,4:DRAW 636, 4:DRAW 636,39 
6:DRAW 4,396:DRAW 4,4 

140 PLOT 4,200:DRAW 636,200 

150 PLOT 472,200:DRAW 472,4 


160 

170 "Definition der drei Windows 
180 

130 WINDOWf1,2,79,2,12 < 
Window 1 

200 WINDOW#2,2,59, 14,24 e 
Window 2 

210 WINDOW#3,61,79,14,24 « 

window 3 

220 

230 ’EINLEITUNG 

240 

250 MOVE 236,312:DRAWR 160,0:DRAWR 
0,-32:DRAAWR -160,0:DRAWR 0,32 

260 MOVE 220,344:DRAWR 192,0:DRAWRA 
0,-96:DRAWR -192,0:DRAWR 0,96 

270 MOVE 220,344:DRAWR 24,32:DRAWR 
192,0:DRAWR D,-96:DRAWA -24,-32 
280 MOVE 436,376:DRAWAR -24,-32 

290 LOCATE 32,7:PRINT CHA$(24);"D Y 
NAM IK U 5*";CHR$(24) 

300 MOVE 250,360:FILL 3 

I1I0 MOVE 420,350:FILL 3 

320 LOCATE 2,18:PRINT''WRITTEN 


330 LOCATE 20,14:PRINT CHA$( 143) ;5T 
RING$( 2, CHR$( 32) ) ;STAING$( 5, CHR$( 14 
3)) ;STAING$( 2,CHA$( 32) ) ;STAING$(5,C 
HA$( 143) ) ;STRING$( 2, CHA$( 32) ) ;5TAIN 
G$( 4,CHR$( 143) ) 

340 LOCATE 19, 15:PRINT STAING$( 2,CH 
A$( 143)) ;STAING$( 2, CHA$( 32) ) ; CHR$( 1 
43) ;5STRING$( 3, CHR$( 32) ) ;CHA$( 143) ;5 
TRING$(2,CHR$( 32)) ;CHRA$( 143) ; STRING 
$(03,CHA$(32)) ;CHA$( 143) ;STAING$( 2,C 
HR$L 32) ) ;CHA$( 143) ; STAING$( 3, CHR$( 3 
2)) ;CHR$( 143) 

350 LOCATE 18, 16:PRINT CHRA$( 143) ;CH 
A$( 32) ;CHA$( 143) ; STRING$( 2, CHRA$( 32) 
) ; CHA$( 143) ; STAING$( 3, CHA$( 32) ) ; CHR 
$( 143) ;STRING$( ?2,CHR$( 32) ) ;CHA$L 143 


) ;STRING$( 3, CHR$( 32) ) ; CHA$( 143) ;5TR 
ING$( 2,CHR$L 32)) ;CHA$( 143) 

360 LOCATE 17,17:PRINT CHA$( 143) ;ST 
AING$( 2,CHR$( 32) ) ; CHA$L 143) ; STRING$ 
(2,CHR$( 32)) ;5TAING$(5,CHRA$( 143) ) ;5 
TRING$( 3, CHR$( 32) ) ; CHR$( 143) ; CHA$C 3 
2) ;CHR$( 143) ;5TAING$( 3, CHA$( 32) ) ;CH 
R$( 143) 

370 LUCATE 20,18:PRINT CHA$( 143) ;ST 
RING$( 6,CHR$( 32) ) ; CHR$( 143) ; STAING$ 
( 3,CHR$( 32) ) ;CHA$( 143) ; CHA$( 32) ; CHA 
$( 143) ;STRING$( 3, CHR$( 32) ) ;STRING$( 
4,CHR$( 143) ) 

380 LOCATE 20,19:PRINT CHA$( 143) ;5ST 
RING$( 6,CHR$( 32) ) ;CHA$( 143) ;STAING$ 
(2,CHRA$( 32) ) ; CHR$( 143) ; STAING$( 3, CH 
R$( 32) ) ;CHRA$L 143) ; STRING$( 2, CHA$( 32 
)) ;CHRA$(C 143) ; STRING$( 3, CHA$( 32) ) ;CH 
A$( 143) 

390 LOCATE 20,20:PRINT CHA$( 143) ;5ST 
RING$( 6,CHR$( 32) ) ;CHA$( 143) ; STRING$ 
(2,CHR$( 32) ) ;CHA$( 143) ; STAING$( 3, CH 
A$( 32)) ;CHR$( 143) ; STAING$( 2, CHR$( 32 
)) ;GHR$L 143) ;5TAING$(3,CHR$( 32) ) ;CH 
A$( 143) 

400 LOCATE 20,21:PRINT CHR$( 143) ;ST 
ARING$( 6, CHR$( 32) ) ; CHA$( 143) ; STAING$ 
(2,CHR$( 32) ) ;CHR$( 143) ;5STRING$( 3, CH 
R$C32)) ;CHR$L 143) ;STAING$( 2, CHRA$( 32 
)) ;CHA$( 143) ; STAING$( 3, CHR$( 32) ) ;CH 
A$( 143) 

410 LOCATE 20,22:PAINT CHR$( 143) ;56T 
RING$( 2,CHR$( 32)) ; STRAING$( 5, CHR$( 14 
3));STRING$( 2,CHA$( 32) ) ;STRING$(5,C 
HA$( 143) ) ;STRING$( 2, CHR$( 32) ) ;STRIN 
G$(5,CHR$( 143) ) 


420 LOCATE 48, 16:PRINT"B Y" 

430 LOCATE 45,18:PRINTMarkus 
440 LOCATE 45,20:PRINTTRoemme 

n" 

450 PRINT#3,CHR$( 24) ;” DYNAMIKU 
5 "= CHR$( 24) 

460 PRINT#3," _----------- “ 

470 PRINT#3 

480 PRINT#3,CHRA$( 24) ;"Ein Programm 


fuer ";CHR$( 24) :PRINT#3 


490 PRINT#3,CHA$( 24) ;"” Schule 
";CHR$( 24) :PRINT#3 
500 PRINT#3,CHR$( 24) ;” Studium 


";CHR$( 24) :PRINTA3 
PRINT#3,CHR$( 24) ;” 
f ";CHR$( 24) 
515 ’ 
520 "Text Erlaeuterungen 
525 
530 FOR x=1 TO 1000:NEXT x 
540 CL5#1 
550 LOCATE 32,2:PRINT CHR$(24);"” ER 
LAEUTERUNGEN: ";CHR$( 24) 


und Beru 
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LISTING 


560 PLOT 240,364:DRAW 392,364 

570 PRINT#1:PRINT#1:PRINT#1 

580 PRINT#1," Mit diesem Programm h 
aben Sie die Moeglichkeit, verschie 
dene Rechnungen” 

590 PRINT#1,” zum Thema der Dynamik 
(Bewegungslehre) durchzufuehren. 8 
eien da Strecken,” 

600 PRINT#1,” Geschwindigkeiten, Um 
laufzeiten, Beschleunigungen und ve 
rschiedene andere" 

610 PRINT#1," Aspekte der Dynamik. 


620 PRINT#1:PRINT#1," Sie haben nun 
die Moeglichkeit, zwischen >6< Pro 

grammpunkten zu” 

630 PRINT#1,” waehlen."” 

640 ’Hauptmenue 

650 FOR x=1 TO 1500:NEXT 

660 CLSA#2 

670 LOCATE 21,14:PRINT "HA UP I 

MENDUE ” 

680 LOCATE 21,15:PRINT STRAING$( 21,C 

HA$( 208) ) 

690 PRINT#2:PRINT#2:PRINT#2:PRINT#2 
700 PRINT#2,” ";CHR$( 24) ;"-1-";CHR$ 

(24);” Die gleichfoermige Bewe 
gung” 

710 PRINT#2,” ";CHA$( 24) ;"-2-" ;CHRA$ 
(24) ;” Die gleichmaessig besch 
leunigte Bewegung” 

720 PRINT#2,” ";CHR$( 24) ;"-3-" ;CHR$ 
(24) ;” Der freie Fall " 

730 PRINT#2,"” ";CHR$( 24) ; "-4-" ;CHR& 
(24) ;"” Der widerstandsfreie sc 
hrasge Wurf" 

740 PRINT#2," ";CHA$( 24) ;"-5-";CHR$ 
(24) ;” Die gleichfoermige Dreh 
bewegung” 

750 PRINT#2," ";CHA$( 24) ;"-6-";CHR$ 
(24) ;” Programm beenden !!!!" 

760 a$-INKEY$:IF a$-"" THEN 760 

770 a-VAL(o$) 

780 DON a GOSUB 800, 1820, 3100, 3880,5 
380, 7010 

790 IF a>7? OR a<1 THEN 760 

800 ’Die gleichfoermige Bewegung 
B10 CLS#1:FOR x-1 TO 300:NEXT:CLEF2 
:FOR x=1 TO 300:NEXT:CLS5#3 

820 LOCATE 26,3:PRINT CHR$( 24) ;"Die 
gleichfoermige Bewegung” ;CHR$( 24) 
530 PLOT 188,376:DRAW 428, 376 :DRAW 
428,344:DRAW 188, 344:DRAW 188,376 
540 FRINT#1:PRINT#1:PRINTf1I 

850 PRINT#1,"” Bei der ’gleichfoermi 
gen Bewegung’ legt der Massenpunkt 
in gleichen" 

860 PRINT#1:PRINT#1," Zeitspannen g 
leiche Wegstrecken zurueck.” 

870 PRINT#1:PRINT#1,"” Die Geschwind 


igkeit ist der Quotient aus dem zur 
ueckgelegten Weg” 
880 PRINT#1:PRINT#1," und der zugeh 
oerigen Zeit." 
890 LOCATE 30, 10:PRINT CHR$( 24) ;” 

Ss ";CHR$( 24) 
900 LOCATE 30, 11:PRINT CHR$( 24) ;"” v 
= ";CHR$( 24) 
910 LOCATE 30, 12:PRINT CHR$( 24) ;” 

t ";CHR$( 24) 
920 CLS#2 
930 LOCATE 27,14:PRINT CHR$( 24) ;"M 
E N U E";CHR$(24) 
940 LOCATE 10,18:PRINT CHR$( 24) ;"-1 
-";CHR$( 24) ;” Berechnung der Ge 
schwindigkeit"” 
950 LOCATE 10,20:PRINT CHR$( 24) ;"-2 
-";CHR$( 24) ;” Berechnung der St 
recke" 
960 LOCATE 10,22:PRINT CHR$( 24) ;"-3 
-";CHR$( 2A) ;” Berechnung der Ze 
ic" 
970 b$=-INKEY$:IF b$="" THEN 970 
980 b=VAL(b$) 
990 ON b GOSUB 1010, 1190, 1390 
1000 IF b>3 OR b<1 THEN 970 
1010 ’Berechnungen der Geschwindigk 
eit 
1020 CLS#1:FOR x=1 TO 300:NEXT:CLS# 
2:FOR x=1 TO 300:NFXT:CLS#3 
1030 G0SUB 1560 


1040 Cı 541 

1050 LOCATE 23,2:PRINT CHRA$(24);" B 
erechnung der Geschwindigkeit ”;CHR 
$(24) 


1060 LOCATE 5,5:PRINT"Bitte geben 5 
ie die Strecke ein (in meter) 
";CHR$( 24) ;"s=" ;CHA$( 24) ; :INPUT st 
recke 
1070 LOCATE 5,7:PRINT"Bitte geben 5 
ie die Zeit ein (in sekunden): 
";CHA$( 24) ;"t=";CHR$( 24) ;: INPUT ze 
it 
1080 ’Formel fuer Geschwindigkeit 
1090 geschw=strecke/zeit 
1100 LOCATE 5,10:PRINT"Auf einer St 
recke von ";CHR$( 24) ;strecke;CHR$( 2 
4);” Metern,” 
1110 LOCATE 5,11:PAINT"die in der Z 
eit von ";CHR$(24) ; zeit; CHA$( 24) ;" 
Sekunden zurueckgelegt wurde,” 
1120 LOCATE 5,12:PRINT"betraegt die 
Geschwindigkeit des Koerpers ";CHR 
$( 24) ;geschw;CHR$( 24) ;" Meter pro S 
ekunde.” 
1130 GOSUB 6910 
1140 c$=INKEY$:IF 
1150 IF c$=-"h" OR 
1160 IF c$="n" OR 
1170 IF c$="m” OR 


c$="" THEN 1140 
a$-"H" THEN 660 
c$="N" THEN 1040 
c$="M" THEN 920 
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1150 IF c$-"e” OR c$=-"E” THEN 7010 
1190 ’Berechnung der Strecke 

1200 CLS#1:FOR x=1 TO 300:NEXT:CLSf 
2:FOR x=1 TO 300:NEXT:CLS#3 

1210 GOSUB 1560 

1220 GLS#1 

1230 LOCATE 25,2:PRINT CHR$(24);" B 
erechnung der Strecke ";CHR$( 24) 
1240 LOCATE 5,5:PRINT"Bitte geben 5 
ie die Geschwindigkeit ein (in Mete 
r/Sekunde) : ";CHR$( 24) ;"v=";CHA$( 24 
);:INPUT geschw 

1250 LOCATE 5,7:PRINT"Bitte geben 6 
ie die Zeit ein (in Seku 
nden) “;CHA$( 24) ;"t=";CHA$( 24 
);:INPUT zeit 

1260 strecke=geschw*zeit 

1270 LOCATE 5, 10:PRINT"Bei einer Ge 
schwindigkeit von ";CHR$( 24) ;geschw 
;CHR$( 24) ;"” Metern pro Sekunde" 
1280 LOCATE. 5, 11:PRINT"und einer Ze 
it von ";CHR$( 24) ; zeit; CHA$( 24) ;" 5 
ekunden" 

1290 LOCATE 5,12:PRINT"hat der Koer 
per eine Strecke von ";CHA$( 24) ;str 


ecke;CHR$(24);" Metern zurueckgeleg 
rt," 


1300 
1310 
1320 
1330 


GOSUB 6910 
F$=INKEY$: IF 
IF f$="h" OR 
IF f$="n" OR 
1340 IF f$="m" OR 
1350 IF f$="e" OR 
1360 

1370 ’Berechnung der Zeit 

1380 ° 

1390 CLS#1:FOR x=1 TO 300:NEXT:CLSA 
2:FOR x=1 TO 300:NEXT:CLS#3 

1400 GOSUB 1560 

1410 C1LS5#1 

1420 LOCATE 27,2:PRINT CHR$(24);" B 
erechnung der Zeit ";CHR$( 24) 

1440 LOCATE 5,5:PRINT"Bitte gebeb 6 
ie die Geschwindigkeit ein (in Mete 
r/GSekunde) : ";CHR$( 24) ;"v=-";CHR$( 24 
); :INPUT geschw 

1440 LOCATE 5,7:PRINT"Bitte geben 5 
ie die Strecke ein (in Mete 
r) = ";CHR$( 24) ;"s=";CHA$( 24 
);:INPUT strecke 

1450 zeit=-strecke/geschw 

1460 LOCATE 5, 10:PARINT"Bei einer Ge 
schwindigkeit von ";CHR$( 24) ;geschw 
;CHR$(24);" Metern pro Sekunde * 
1470 LOCATE 5,11:PRINT"braucht der 
Koerper fuer ";CHR$( 24) ;strecke; CHR 
$(24) ;" Meter" 

1480 LOCATE 5,12:PRINT"genau ";CHR$ 
(24) ;zeit;CHR$( 24);” Sekunden." 
1490 GOSUB 6910 


f$="" THEN 1310 
a$="H" THEN 660 
f$="N" THEN 1220 
f$="M" THEN 920 
f$=-"E" THEN 7010 


1500 
1510 
1520 
1530 
1540 


d$=INKEY$:IF d$="" THEN 1500 

IF d$="N" OR d$="n" THEN 1420 
IF d$="h”" OR d$="H" THEN 660 

IF d$="m”" OR d$="M" THEN 920 
IF d$="e" OR d$="E” THEN 7010 
1550 ’Zeichnung der Diagramme 

1560 CLS#2:”° Darstellung der beiden 
Diagramm (Weg-Zeit) und (Geschw.-Z 

eit) 

1570 PLOT 40,40:DRAW 196,40:PLOT 40 
‚40:DRAW 40, 152 

1580 FOR x=40 TO 196 STEP 2 

1590 FOR y=72 TO 136 STEP 32 

1600 PLOT x,y:NEXT y,x 

1610 FOR w=60 TO 180 STEP 24 

1620 FOR z=40 TO 152 STEP 2 

1630 PLOT w,z:NEXT z,w 

1640 PLOT 40,40:DRAW 180, 136 

1650 LOCATE 5,14:PRINT CHRA$( 24) ; "We 

g-Zeit-Diagramm" ;CHR$( 24) 
1660 LOCATE 5,24:PRINT "”O 
t4 t5 t6"” 
1670 LOCATE 
1680 LOCATE 
1690 LOCATE 


tı t2 t3 


3,21:PRINT"”s1” 

3,19:PRINT"s2"” 
3,17:PARINT"”s3"” 

1700 LOCATE 26,23:PRINT"t(s)"” 

1710 LOCATE 3, 15:PRINT”s(m)” 

1720 PLOT 244,40:DRAW 396,40:PLOT 2 

44,40:DRAW 244, 152 

1730 PLOT 244,120:DRAW 396, 120:PLOT 
392,40:DRAW 392,120 

1740 FOR x=40 TO 120 STEP 4 

1750 MOVE 244,x:DRAW 392,x:NEXT 
1760 LOCATE 31,14:PRINT CHR$( 24) ;"G 

eschw-Zeit-Diagramm” ;CHR$( 24) 


1770 LOCATE 52,23:PRINT"t(s)” 

1780 LOCATE 49,24:PRINT"t1” 

1790 LOCATE 30, 15:PRINT"v(m/s)” 
1800 LOCATE 30, 18:PRINT"”v” 

1810 RETURN 

1820 ” 

1830 ’Programmteil Beschleunigte Be 
wegung 

1840 


1850 CLS#1:FOR x=1 TO 300:NEXT:CLS# 
2:FOR x=1 TO 300:NEXT:CLS#3 

1860 LOCATE 24,3:PRINT CHA$( 24) ;"Di 
e gleichmaessig beschleunigte Beweg 
ung”; CHR$( 24) 

1870 PLOT 164,376:DRAW 516, 376:DRAW 
516,344:DRAW 164,344:DRAW 164,376 
1850 PRINT#1:PRINT#1:PRINT#1:PRINT# 

1 

1890 PRINT#1," Legt der Massenpunkt 
in gleichen Zeitspannnen ungleiche 
Wegstrecken zu-"” 

1900 PRINT#1,” rueck, so heisst die 
Bewegung ungleichfoermig. Die Gesc 

hwindigkeit aen-" 

1910 PRINT#1,"” dert sich im Laufe d 
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er Zeit. Nimmt Sie zu, 

ewegung beschleu-"” 
1920 PRINT#1,"” nigt, nimmt sie ab, 

so ist die Bewegung verzoegert. Nim 

mt die Geschwindig-"” 

1930 PRINT#1,” keit in gleichen Zei 
tspannen um den gleichen Betrag zu, 
so ist die Bewegung” 

1940 PRINT#1,” gleichmaessig bescle 

unigt."” 

1950 

1960 ’Menue Beschleunigte Bewegung 
1970 

1980 CLS#2 

1990 LOCATE 26, 14:PRINT CHR$( 24) ;"M 


so ist die B 


E N U E";CHR$( 24) 

2000 LOCATE 6, 18:PRINT CHR$( 24) ;"-1 
-";CHA$( 24) ;” Berechnung der 
Strecke” 


2010 LOCATE 6,20:PRINT CHR$( 24) ;"”-2 
-";CHR$( 24) ;” Berechnung der 
Beschleunigung" 

2020 LOCATE 6,22:PRINT CHR$( 24) ;"-3 

-";CHRA$( 24) ;" Berechnung der 
Zeit" 

2030 LOCATE 6,24:PRINT CHR$( 24) ;"”-4 
-";CHA$( 24) ;” Berechnung der 
Geschwindigkeit" 

2040 a$=INKEY$:IF a$="" THEN 2040 
2050 a=VAL(a$) 

2060 ON a GOSUB 2080, 2270, 2460, 2650 
2070 f a>4 OR a<1i THEN 2040 

2060 * 
2090 "Berechnung der Strecke 

2100 

2110 CLS#1:FOR x=1 TO 300:NEXT:CLS# 
2:FOR x=1 TO 300:NEXT:CLS#3 

2120 G60SUB 2850 

2130 CLS#1 

2140 LOCATE 25,2:PRINT CHR$(24);" B 
erechnung der Strecke ";CHR$( 24) 
2150 LOCATE 5,5:PAINT"Bitte geben 5 
ie die Beschleunigung ein (inm 
/s“2) :";CHR$( 24) ;"a=";CHR$( 24); : 
INPUT beschl 

2160 LOCATE 5,7:PRINT"Bitte geben 56 
ie die Zeit ein (in S 

ekunden) :"; CHR$( 24) ;"t=";CHR$( 24) ;: 
INPUT zeit 

2170 strecke=1/2#beschl*#( zeit*zeit) 
2180 LOCATE 5,10:PRINT"Bei einer Be 
schleunjigung von ";CHR$( 24) ;beschl; 
CHR$( 24) ;" Metern pro Sekunde “2” 

2190 LOCATE 5,11:PRINT"und einer Ze 
it von ";CHRA$( 24) ; zeit; CHRA$(24);" 5 
ekunden" 

2200 LOCATE 5,12:PAINT"hat der Koer 
per genau ";CHR$( 24) ; strecke; CHA$(2 

4);” Meter zurueckgelegt !" 

2210 GOSUB 6910 


2220 TF$=INKEY$:IF 
2230 IF f$="h" OR 
2240 IF f$="n" OR 
2250 IF f$="m" OR 
2260 IF f$="e" OR 
2270 

22580 ’Berechnung der Beschleunigung 
2290 * 

2300 CLS#1:FOR x=1 TO 300:NEXT:CLS# 
2:FOR x=1 TO 300:NEXT:CLS#3 

2310 GOSUB 2850 

2320 CLS4#1 

2330 LOCATE 24,2:PRINT CHR$(24);" B 
erechnung der Beschleunigung ";CHR$ 
(24) 

2340 LOCATE 5,5:PRINT"Bitte geben 5 
ie die Geschwindigkeit ein (inm 
/s) :";CHA$( 24) ;"v=";CHRA$( 24) ;:I 
NPUT geschw 

2350 LOCATE 5,7:PRINT"Bitte geben 5 
ie die Zeit ein (in s 

) :";CHA$( 24) ;"t=";CHR$( 24) ;:1 

NPUT zeit 

2360 beschl=geschw/zeit 

2370 LOCATE 5,10:PRINT"Bei einer Ge 
schwindigkeit von ";CHR$( 24) ;geschw 
;‚CHR$C24) ;” Metern pro Sekunde,” 
2380 LOGATE 5,11:PRINT"und einer Ze 
it von ";CHR$( 24) ;zeit;CHR$(L24);" S 
ekunden, ” 

2390 LOCATE 5,12:PARINT"erhaelt der 
Koerper eine Beschleunigung von ";C 
HR$C24) ;beschl1; CHA$( 24) ;" m/s’2." 
2400 GOSUB 6910 
2410 3j$=INKEY$:IF 
2420 IF j$="h" OR 
2430 IF 3j$="m" OR 
2440 IF j$="n"” OR 
2450 IF j$="e"” OR 
2460 ” 
2470 ’Berechnung der Zeit 

2480 ’ 

2490 CLS#1:FOR x=1 TO 300:NEXT:CLS# 
2:FOR x=1 TO 300:NEXT:CLS#3 

2500 GOSUB 2850 

2510 C1L541 

2520 LOCATE 28,2:PRINT CHR$(24);”" B 
erechnung der Zeit "”;CHR$( 24) 

2530 LOCATE 5,5:PRINT"Bitte geben 5 
ie Geschwindigkeit ein (in 
m/s) :";CHR$( 24) ;"v=";CHR$( 24) ; :IN 
PUT geschw 

2540 LOCATE 5,7:PRINT"Bitte geben 5 
ie die Beschleunigung ein (in m/ 
s’2) :";CHR$( 24) ;"a=";CHR$( 24); :IN 
PUT beschl 

2550 zeit=-geschw/beschl 

2560 LOCATE 5,10:PRAINT"Um bei einer 
Beschleunigung von ";CHR$( 24) ;besc 
hl;CHR$(24) ;” m/s’2 ” 


f$="" THEN 2220 
f$="H" THEN 660 
f$="N” THEN 2130 
f$="M" THEN 1980 
f$="E" THEN 7010 


J3$="" THEN 2410 
j$="H" THEN 660 
J$="M" THEN 1980 
J$="N" THEN 2320 
j$="E" THEN 7010 
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2570 LOCATE 5,11:PRINT"auf eine Ges 
chwindigkeit von ";CHR$( 24) ;geschw; 
CHR$( 24) ;”" Metern pro Sekunde zu ko 
mmen, ” 
2580 LOCATE 5,12:PARINT"braucht der 
Koerper genau ";CHR$( 24) ; zeit ;CHR$( 
24) ;" Sekunden.“ 
2590 GOSUB 6910 
2600 g$=INKEY$:IF 
2610 IF g$="n" OR 
2620 IF g$="M" OR 
2630 IF g$="h" OR 
2640 IF g$="c" OR 
2650 
2660 
t 
2670 
2650 CLS#1:FOR x=1 TO 300:NEXT:CLS# 
2:FOR x=1 TO 300:NEXT:CLS#3 
2690 GOSUB 2850 
2700 C1.5S41 
2710 LOCATE 25,2:PRINT CHR$(24);"” B 
erechnung der Geschwindigkeit "CHR 
$( 24) 
2720 LOCATE 5,5:PAINT"Bitte geben = 
ie die Beschleunigung ein (i 
m/s’2) :";CHA$(24) ;"a="; ;CHR$C24) ; 
: INPUT beschl 
2730 LOCATE 5,7:PRINT"Bitte geben 5 
ie die Strecke ein (in 
m ) :";CHR$( 24) ;"s=";CHRA$( 24) ; 
:INPUT strecke 
2740 geschw=(2#beschl#strecke) "(1/2 
) 
2750 LOCATE 5,10:PRINT"Bei einer Be 
schleunigung von ";CHR$( 24) ;beschl; 
CHR$( 24) ;" m\s’2)," 
2760 LOCATE 5,11:PRINT"und einer St 
recke von ";CHR$( 24) ;strecke; CHRA$(2 
4);" Metern," 
2770 LOCATE 5,12:PRINT"betraegt die 
Geschwindigkeit ";CHR$[ 24) ;geschw; 
CHR$( 24);" Meter pro Sekunde. 


g$="" THEN 2600 
g$="N” THEN 2510 
g$="m”" THEN 1980 
g$="H" THEN 660 
g$="E" THEN 7010 


"Berechnung der Geschwindigkei 


2780 GOSUR 6910 

2790 a$-INKEY$:IF a$=-"" THEN 2790 
2800 a=VAL(a$) 

2810 IF a$="h" OR a$="H" THEN 660 
2820 IF a$="m" OR a$="M" THEN 1980 
2830 IF a$="n" OR a$="N" THEN 2700 
2840 IF a$="e" OR a$="E" THEN 7010 
2850 ” 

2860 ’Fenster 2 fuer Definition de 
r Formeln 

2870 ” 

2880 CLS#2 


2890 LOCATE 21,14:PRINT CHR$( 24) ;" 

Benutzte Formeln ";CHR$( 24) 

2900 LOCATE 4,16:PRINT CHRA$( 24) ;" 
v ";CHA$( 24) 


";CHR$( 24) 
2920 LOCATE 4,18:PRINT CHRA$( 24) ;" 
t ";CHR$( 24) 
2930 LOCATE 4,20:PRINT CHR$( 24) ;" 
v ";CHR$( 24) 
2940 LOCATE 4,21:PRINT CHR$(24);" s 
=--#t ".CHA$( 24) 
2950 LOCATE 4,22:PRINT CHR$( 24) ;" 
2 " ;CHR$( 24) 
2960 LOCATE 14,16: PRINT 
";CHR$( 24) 
2970 LOCATE 14,17:PAINT 
v-a*t ";CHR$( 24) 
2980 LOCATE 14,18:PRINT 
";CHR$( 24) 
2990 LOCATE 13,20:PAINT 
ı) ";CHR$( 24) 
3000 LOCATE 13,21:PRINT 
s=-#a#t"2 ";CHA$(24) 
3010 LOCATE 13,22:PRINT 
2 ";CHA$( 24) 
3020 LOCATE 24, 16:PRINT 
";CHA$( 24) 
3030 LOCATE 24,17:PRINT CHRA$( 24) ;” 
v-(2*%b#s) “1/2 ";CHR$( 24) 
3040 LOCATE 24,18:PRINT CHA$( 24) ;" 
";CHR$( 24) 
3050 LOCATE 28, 20:PAINT 


CHRA$( 24) ;" 
CHR$( 24) ;" 
CHR$( 24) ;" 
CHR$( 24) ;" 
CHR$( 24) ;" 
CHR$( 24) ;" 


CHA$( 24) ;" 


CHR$( 24) ;" 


a = Beschleunigung ”";CHR$( 24) 
3060 LOCATE 28,21:PRINT CHRA$( 24) ;" 
v= Geschwindigkeit ";CHR$( 24) 
3070 LOCATE 28,21:PRINT CHR$( 24) ;"” 
s = Strecke ";CHRA$( 24) 
3080 LOCATE 28,22:PRINT CHR$( 24) ;"” 
t = Zeit ";CHR$( 24) 
3090 RETURN 

3100 

3110 ’Der Freie Fall 

3120 


3130 CLS#1:FOR x=1 TO 300:NEXT:CLS# 
2:FOR x=1 TO 300:NEXT:CLS#3 

3140 LOCATE 34,3:PRINT CHR$( 24) ;"De 
r Freie Fall”;CHRA$( 24) 

3150 PLOT 252,376:DRAW 388, 376:DRAW 
388, 344:DRAW 252,344:DRAW 252,376 
3160 PRINT#1:PRINT#1:PRINT#1:PRINT# 

1 

3170 PRINT#1, Alle frei fal 
lenden Koerper zeigen denselben Bew 
egungsablauf."” :PRINT#1 

3180 PRINT#1,"” Der Freie Fal 
1 ist eine gleichmaessig beschleuni 
gte Bewegung." :PRINT#1 

3190 PRINT#1, Die Fallbesch 
leunigung, allgemein mit g bezeichn 
et, betraegt :” 

3200 LOCATE 34,12:PRINT CHR$( 24) ;" 

g = 9.81 m/s”2 ";CHR$( 24) 

3210 * 


2910 LOCATE 4,17:PRINT CHA$(24);" a 3220 Menue Freier Fall 
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3230 ” 

3240 CLSA2 

3250 LOCATE 26, 14:PRINT CHR$( 24) ;"M 
E N U E";CHRA$(24) 

3260 LOCATE 6, 18:PRINT CHR$( 24) ;"”-1 
-";CHRA$( 24) ;” Berechnung der 
Fallhoehe"” 

3270 LOCATE 6,20:PRINT CHR$( 24) ;"-2 
-";CHRA$( 24) ;” Berechnung der 
Fallzeit" 

3280 LOCATE 6,22:PRINT CHR$( 24) ;"-3 
-";CHR$( 24) ;” Berechnung der 
Fallgeschwindigkeit"” 

3290 a$=INKEY$:IF a$="" THEN 3290 
3300 a=VAL(a$) 

3310 ON a GOSUB 3330, 3510, 3690 

3320 IF a>3 OR a<1 THEN 3290 

3330 

3340 

3350 ° 

3360 CLS#1:FOR x=1 TO 300:NEXT:CLS# 

2:FOR x=1 TO 300:NEXT:CLS5#3 

3370 GOSUB 6740 

3380 CL5#1 

3390 LOCATE 25,2:PRINT CHR$(24);" B 
erechnung der Fallhoehe "”;CHR$( 24) 
3400 LOCATE 5,5:PARINT"Bitte geben 5 
ie die Fallzeit ein (in s 
) :";CHRA$( 24) ;"t=";CHA$( 24) ;:IN 
PUT fallz 

3410 fallhoe-1/2%*9.81%*( fallz*fallz) 
3420 LOCATE 5,8:PRINT”Bei einer Fal 
lzeit von ";CHR$( 24) ;fallz; CHRA$( 24) 
;"” Bekunden und” 

3430 LOCATE 5,9:PRINT"der Fallbesch 
leunigung von ";CHR$(24);” g - 9.81 
m/s”2 ";CHR$(24);"," 

3440 LOCATE 5,10:PRINT"betraegt die 
Fallhoehe genau ";CHRA$( 24) ;fallhoe 
;CHR$( 24) ;” Meter.” 

3450 GOSUB 6910 
3460 a$-INKEY$:IF 
3470 IF a$-="h"” OR 
34850 a$="m” OR 
3490 a$-"n" OR 
3500 a$=-"e" OR 
3510 
3520 
3530 

3540 CLS#1:FOR x=1 TO 300:NEXT:CLS# 
2:FOR x=1 TO 300:NEXT:CLS#3 

3550 GOSUB 6740 

3560 CLSfF1 

3570 LOCATE 25,2:PRINT CHR$(24);"” B 
erechnung der Fallzeit ";CHR$( 24) 
3580 LOCATE 5,5:PRINT"Bitte geben 5 
ie die Fallgeschwindigkeit ein (in 
m/s) :";CHA$( 24) ;"v=-";CHR$( 24) ; :INP 
UT fallgeschw 

3590 fallz=-fallgeschw/9.81 


"Berechnung der Fallhoehe 


a$-"" THEN 3460 
a$-"H" THEN 660 
a$="M" THEN 3240 
a$=-"N” THEN 3380 
a$="E”" THEN 7010 


"BERECHNUNG DER FALLZEIT 
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3600 LOCATE 5,9:PARINT"Bei einer Fal 
lgeschwindigkeit von ";CHR$(24) ;fal 
lgeschw; CHA$( 24) ;" m/s"2," 

3610 LOCATE 5,10:PRINT"braucht der 
Koerper genau ";CHR$( 24) ;Fallz; CHR$ 
(24);" Sekunden.” 

3620 GOSUB 6910 

3630 b$=INKEY$:IF b$="" THEN 3630 
3640 b=VAL(b$) 
3650 IF b$="h" 
3660 IF b$="m” 


OR b$="H" 
OR b$="M" 


THEN 660 
THEN 3240 


3670 
3680 


IF b$="n" 
IF b$="e"” 


OR b$="N” 
OR b$="E" 


THEN 3560 
THEN 7010 


[2 


3690 
3700 
gkeit 
3710 
3720 CLS#1:FOR x=1 TO 300:NEXT:CLS# 
2:FOR x=1 TO 300:NEXT:CLS#3 
3730 GOSUB 6740 
3740 C1L.S5f#1 
3750 LOCATE 23,2:PRINT CHR$( 24) 
erechnung der Fallgeschwindigke 
;CHA$( 24) 
3760 LOCATE 5,5:PRINT"Bitte geben 5 
ie die Fallzeit ein (in s) 
";CHR$( 24) ;"t=";CHRA$( 24) ; : INPUT f 
allz 
3770 fallgeschw=9.81*fallz 
3780 fallhoe=1/2#9.81*(fallz*#fallz) 
3790 LOCATE 5,9:PAINT"Bei einer Fol 
lhoehe von ";CHR$( 24) ;Fallhoe ; CHRA$( 
24);” Metern,” 
3800 LOCATE 5,10:PRINT"und einer Fa 
llzeit von ";CHR$( 24) ;fallz; CHR$( 24 
);” Sekunden, ” 
3810 LOCATE 5,11:PRINT"betraegt die 
Fallgeschwindigkeit "”;CHR$( 24) ;fal 
lgeschw; CHR$( 24) ;”" m/s." 
3820 GOSUB 6910 
3830 c$=INKEY$:IF 
3840 IF c$="m"” 
3850 IF c$="h" 
3860 IF c$="n" 
3870 IF c$="e" 
3880 ” 
3890 
Wurf 
3900 
3910 CLS#1:FOR x=1 TO 300:NEXT:CLS# 
2:FOR x=1 TO 300:NEXT:CLS#3 
3920 LOCATE 25,3:PRINT CHR$( 24) ;"De 
r widerstandsfreie schraege Wurf"CH 
R$( 2A) 
3930 MOVE 176,344:DRAWR 300,0:DRAWR 
0,32:DRAWR -300,0:DRAWR 0,-32 


3940 PRINT#1:PRINT#1:PRINT#1:PRINTA 
1 


"Berechnung der Fallgeschwindi 


[2 


;"B 
it " 


c$="" THEN 3830 
c$="M" THEN 3240 
c$="H" THEN 660 
c$="N" THEN 3740 
c$="E” THEN 7010 


’Der widerstandsfreie schraege 


’ 


LISTING 


3950 PRINT#1,” Der widerstandsfreie 
schraege Wurf ist eine Bewegung, d 
ie sich aus zwei" 

3960 PRINT#1,” Teilbewegungen zusam 

mensetzt 1!” 

3970 PRINT#1,” Erstens handelt es s 
ich um eine gleichfoermige Bewegung 
und zweitens” 

3980 PRINT#1,” um den freien Fall. 

Durch das gleichsetzen dieser beide 

n Bewegungsarten, "” 

3990 PRINT#1,"” erhaelt 

Formeln zur Berechnung 
‚ der Wurfhoehe" 

4000 PRINT#1,"” und der 

4010 

"Menue 

4030 ” 

CLS#2 

LOCATE 26, 14:PAINT CHR$( 24) ;"M 

U E";CHR$( 24) 

4060 LOCATE 6, 16:PRINT CHR$( 24) ;"-1 
-";CHR$( 24) ;” Berechnung d 

er max. Wurfhoehe" 

4070 LOCATE 6, 18:PRINT 
-";CHR$(24) ;” 

er Wurfweite"” 

4080 LOCATE 6,20:PRINT 
-";CHRA$( 24) ;” 

er Wurfzeit” 

4090 LOCATE 6,22:PRINT 
-";CHR$( 24) ;” 

es Abwurfwinkels" 

4100 LOCATE 6,24:PRINT 
-";CHR$( 24) ;" 

er Wurfgeschwindigkeit" 

A110 a$-INKEY$:IF a$-"" THEN 4110 
4120 a=VAL(a$) 

4130 ON a GOSUB 4150,4350, 4550, 4770 
‚4900 

4140 IF a>5 OR b<1 THEN 4110 

4150 

4160 ’Berechnung der maximalen Wurf 

hoehe 

4170 

A180 CLS#1:FOR x=1 TO 300:NEXT:CLS# 

2:FOR x=1 TO 300:NEXT:CLSA3 

4190 GOSUB 5110 

4200 C154#1 

4210 LOCATE 25,2:PRINT CHA$(24);" B 

erechnung der max. Wurfhoehe ";CHR$ 

(24) 

4220 LOCATE 5,5:PRINT"Bitte geben 5 
ie den Abwurfwinkel ein (in 
Grad): ";CHR$L24);"” ";CHA$L 176) ;"= 
":CHRA$( 24) ; : INPUT a 

4230 LOCATE 5,7:PRINT"Bitte geben 5 
ie die Abwurfgeschwindigkeit ein (i 

n m/s): ";CHRA$(24);” v=";CHRA$(24);: 
INPUT v 


man nun die 
der Wurfzeit 


Wurfweite ." 


des schraegen Wurtfes 


CHR$( 24) ;"-2 
Berechnung d 


CHR$( 24) ;"-3 
Berechnung d 


CHA$( 24) ;"-a 
Berechnung d 


CHR$( 24) ;"-5 
Berechnung d 


4240 DEG:hoehe=( ( v#v) /(2#*9.81))*(5SI 
N( a) #5IN( a)) :RAD 

4250 LOCATE 5,9:PRINT"Bei einer Abw 
urfgeschwindigkeit von ";CHR$( 24) ;v 
;CHR$( 24) ;" m/s,” 

4260 LOCATE 5,10:PRINT"und einem Ab 
wurfwinkel von ";CHR$( 24) ;a;CHR$( 24 
);"” Grad, erreicht" 

4270 LOCATE 5,11:PRINT"der Koeper e 
ine maximale Wurfhoehe von ";CHRA$C2 
4) ;hoehe ;CHA$( 24) ;" Metern.” 

4280 GOSUB 6940 
4290 a$=INKEY$:IF 
4300 a=VAL(a$) 
4310 IF a$="h" OR 
4320 IF a$="n" OR 
4330 IF a$="m"” OR 
4340 IF a$="e" OR 
4350 

4360 ’Berechnung der Wurfweite 
4370 
4380 CLS#1:FOR x=1 TO 300:NEXT:CLS# 
2:FOR x=1 TO 300:NEXT:CLS#3 

4390 G0USUB 5110 

4400 CLS#1 

4410 LOCATE 28,2:PRINT CHR$(24);" B 
erechnung der Wurfweite ";CHR$( 24) 
4420 LOGATE 5,5:PRINT"Bitte geben 6 
ie die Abwurfgeschwindigkeit ein ( 
in m/s) ”‚CHRA$( 24) ;" v=";CHA$( 24) 
; : INPUT v 

4430 LOCATE 5,7:PRINT"Bitte geben $S 
ie den Abwurfwinkel ein (i 
n Grad) ";CHR$(24);" ";CHA$( 176) ; 
"=": CHA$( 24) ;: INPUT a 

4440 DEG:weite=((v*v)/9.81)*( SIN( 2* 
a)) :RAD 

4450 LOCATE 5,9:PRINT"Bei einer Abw 
urfgeschwindigkeit von ";CHR$( 24) ;v 
;ECHR$(24);" Metern pro Sekunde,” 
4460 LOCATE 5,10:PRINT"und einem Ab 
wurfwinkel von ";CHR$( 24) ;a; CHA$( 24 
);”" Grad, erreicht” 

4470 LOCATE S,11:PRINT"der Koerper 
eine Weite von ";CHR$( 24) ;weite; CHA 
$(24);” Metern.” 
4480 GOSUB 6940 
4490 a$=INKEY$:IF 
4500 a=VAL(a$) 
4510 IF a$="n" OR 
4520 IF a$="h" OR 
4530 IF a$="m" OR 
4540 IF a$="e"” OR 
4550 ° 

4560 "Berechnung der Wurfzeit 

45970 

4580 CLS#1:FOR x=1 TO 300:NEXT:CLS# 
2:FOR x=1 TO 300:NEXT:CLS#3 

4590 GOSUB 5110 

4600 CLSA41 


a$="" THEN 4290 


a$="H" 
a$g="N"” 
a$="M" 
a$g="E"” 


THEN 660 

THEN 4200 
THEN 4040 
THEN 7010 


a$="" THEN 4490 


ag="E" 


THEN 4400 
THEN 660 

THEN 4040 
THEN 7010 
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LISTING 


4610 LOCATE 28,2:PAINT CHR$( 24) ;" B 

erechnung der Wurfzeit ";CHR$( 24) 

4630 LOCATE 5,6:PRINT"Bitte geben 5 
ie den Abwurfwinkel ein (in 
Grad): ";CHR$( 24) ;” ";CHR$( 176) ; "= 
";CHR$( 24) ; :INPUT a 

4640 LOCATE 5,7:PRINT"Bitte geben 56 
ie die Abwurfgeschwindigkeit ein (i 
n m/s): ";CHA$( 24) ;” v-";CHA$(24);: 
INPUT v 

4650 DEG:t=( 2#v*SIN(a))/9.81:RAD 
4655 DEG: s=( v#v) /9.81#SIN( 2*a) 

4660 LOCATE 5,9:PRINT"Bei einer Abw 
urfgeschwindigkeit von ";CHR$( 24) ;v 
;CHR$(24);" Meter pro Sekunde, " 

4670 LOCATE 5, 10:PRINT"und einer Wu 
rfweite von ”;CHR$( 24) ;s; CHA$( 24) ;" 
Metern, sowie eienem Abwurf--” 

4680 LOCATE 5,11:PRINT"winkel von "” 
;CHR$(24) ;a; CHA$( 24) ;" Grad, betrae 

gt die Wurfzeit "” 

4690 LOCATE 5,12:PRINT”"genau *";CHR$ 

(24) ;t;CHAR$(24);" Sekunden.” 

4700 GOSUB 6940 

4710 a$=INKEY$:IF 

4720 a=VAL{(a$) 

4730 IF a$="n" OR 
4740 IF a$="h" OR 

4750 IF a$="m" OR 
4760 IF a$="e” OR 
4770 

4780 ’Berechnung des Abwurfwinkels 
4790 

4500 CLS#1:FOR x=1 TO 300 ::NEXT:CLS# 
2:FOR x=1 TO 300:NEXT:CLSA3 

4810 GOSUB 5110 

4520 CLSA1 

48530 LOCATE 25,2:PRINT CHR$(24);” B 
erechnung des Abwurfwinkels ";CHR$( 
24) 

48540 LOCATE 5,5:PRINT"Bitte geben 5 
ie die Wurfweite ein 

{in m): ";CHR$( 24) ;" s=-";CHRS( 24); :; 
INPUT s 

4560 LOCATE 5,7:PRINT"Bitte geben 5 
ie die Abwurfgeschwindigkeit ein (i 
n m/s): ";CHR$( 24) ;" v=-";CHR$( 24); : 
INPUT v 

4570 DEG:a=9.81*s/( v*v) 

4875 alpha=ATN( a/SQR( 1-a*a)) /2:RAD 

4876 LOCATE 5,9:PRINT"Bei einer Wur 
fweite von ";CHR$( 24) ;s; CHR$( 24) ;” 

Metern und einer” 

4878 LOCATE 5,10: PRINT"Abwurfgeschw 
indigkeit von ";CHR$( 24) ;v;CHRA$( 24) 
;”" m/s, wurde der Koerper" 

4879 LOCATE 5, 11:PRINT"unter einem 

Winkel von ";CHR$(24) ;alpha; CHA$( 24 
);” Grad abgeworfen ! 

4580 GOSUB 6940 


a$="" THEN 4710 


a$="N"” 
a$g="H" 
a$="E"” 


THEN 4600 
THEN 660 

THEN 4040 
THEN 7010 


4881 a$=INKEY$:IF a$="" THEN 4881:a 


=VAL(a$) 

4882 IF a$="h" OR a$="H" THEN 660 
4883 IF 3$="n" OR a$="N" THEN 4820 
4884 IF a$="m" OR a$="M" THEN 4040 
A885 IF a$="e" OR a$="E” THEN 7010 
4900 

4910 BERECHNUNG DER ABWURFGESCHWIN 
DIGKEIT 

4920 


A930 CLS#1:FOR x=1 TO 300:NEXT:CLSA 
2:FOR x=1 TO 300:NEXT:CLSA3 
4940 GOSUB 5110 
4950 CL541 
4960 LOCATE 23,2:PRINT CHR$( 24) ;” B 
erechnung der Abwurfgeschwindigkeit 
";CHR$( 24) 
4970 LOCATE 5,5:PRINT"Bitte geben 5 
ie den Abwurfwinkel ein (i 
n Grad): ";CHR$(24) ;” ";CHR$( 176) ;” 
=";CHRA$( 24) ; : INPUT a 
4980 LOCATE 5,6:PAINT"Bitte geben 5 
ie die Wurfzeit ein 
(in s): ”";CHR$( 24) ;” t=";CHR$( 24); 
:INPUT t 
4990 LOCATE 5,7:PRINT"Bitte geben 5 
ie die Wurfweite ein 
(in m): ";CHRA$( 24) ;” s=";CHA$( 24); 
:INPUT s 
5000 DEG:v=s/(t*COS(a)) :RAD 
5010 LOCATE 5,9:PRINT”"Bei eienem Ab 
wurfwinkel von ";CHR$( 24) ;a; CHR$( 24 
);” Grad und einer " 
5020 LOCATE 5,10:PAINT"Wurfweite vo 
n ";CHR$( 24) ;s; CHR$( 24) ;” Metern, s 
owie einer Wurfzeit" 
5030 LOCATE 5, 11:PRINT"von "CHR$C2 
4) ;t;CHA$( 24) ;” Sekunden, ergibt si 
ch eine Abwurfge-” 
5040 LOCATE 5,12:PRINT"geschwindigk 
eit von ";CHR$( 24) ;v;CHA$( 24) ;” Met 
ern pro Sekunde.” 
S0O5N GOSUB 6940 
5060 a$=-INKEY$:IF 
5070 IF a$="h" OR 
5080 IF a$="m"” OR 
5090 IF a$="n" OR 
5100 IF a$="e"” OR 
5110 
5120 "Grafik schraeger Wurf 
5130 
5140 CLS#2 
5150 PLOT 52,32:DRAAW 288, 32:PLOT 52 
‚32:DRAW 52, 170 
5160 MOVE 52,170:DRAWR 4,-4:MOVE 52 
‚170:DRAWR -4,-4 
5170 MOVE 288,32:DRAWA -4,-4:MOVE 2 
88,32:DRAWAR -4,4 
5180 DEG 
5190 FOR x=1 TO 180 


a$="" 

a$="H" 
a$g="M" 
a$g="N" 


THEN 5060 
THEN 660 
THEN 4040 
THEN 4950 
THEN 7010 
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nen 


LISTING 


5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 


PLOT 52+x#1.2,32+55#5IN( x) 
NEXT x 


20,21:PARINT”*" 
20,22:PRINT”h"” 
20,23:PRINT”| " 
5,18:PAINT”y” 
38,23:PRINT"s" 
13,22:PRINT CHA$( 176) 
7,14:PRINT CHR$(24);" D 
Der schraege Wurf ";CHR$ 


LOCATE 
LOCATE 
LOCATE 
5280 LOCATE 
5290 LOCATE 
iagramm - 
(24) 

5300 LOCATE 39, 16:PRINT CHR$( 24) ;” 
h = Wurfhoehe ";CHR$( 24) 

5310 LOCATE 39, 17:PRINT CHA$( 24) ;" 


s = Wurfstrecke ";CHR$( 24) 
5320 LOCATE 39, 18:PRINT CHR$( 24) ;" 
t = Wurfdauer "> CHR$( 24) 


5330 LOCATE 39, 19:PRINT CHR$( 24) ;" 
";CHR$( 176) ;" = Abwurfwinkel ";CHRA 
$(24) 

5340 LOCATE 39,20:PRAINT CHR$( 24) ;" 
y = Bahnkurve ":CHR$( 24) 

5350 LOCATE 6,24:PRINT"”s(0)"” 

5360 LOCATE 39,21:PRINT CHR$( 24) ;" 
v = Abwurfgeschw. ";CHR$( 24) 

5370 RETURN 

5380 

5390 ’Die gleichfoermige Drehbewegu 
ng 

5400 ° 

5410 CLS#1:FOR x=1 TO 300:NEXT:CLS# 
2:FOR x=1 TO 300:NEXT:CLS#3 

5420 LOGATE 24,3:PRINT CHR$(24);" D 
ie gleichfoermige Drehbewegung ";CH 
A$(24) 

5430 PLOT 172,344:DRAW 460, 344 :DRAW 
460,376:DRAW 172,376:DRAAW 172,344 
5440 PRINT#1:PRINT#1:PRINT#1:PRINT# 

1 

5450 PRINT#1," Unter der gleichfoer 

migen Drehbewegung versteht man, da 
ss sich eine " 

5460 PRINT#1," kreisfoermige Scheib 

e, vom Durchmesser >d=2#r<, um eine 
feste Achse" 

5470 PRINT#1," dreht, welche senkre 

cht zur Scheibe steht. Die Drehzahl 
ist waehrend” 

5480 PRINT#1," des Bewegungsvorgang 

es konstant." 

5490 PRINT#1," Fuer eine Umdrehung 

braucht die Scheibe die Umlaufzeit 

von :” 

5500 PRINT#1:PRINT#1," T = 1/n => 


T = Umlaufzeit => n = Anzahl der 
Umdrehungen pro Minute" 
s510 


5520 "Menue gleichfoermige Drehbewe 


5530 

5540 CLS#2 

5550 LOCATE 26, 14:PRINT CHR$( 24) ;"M 
E N U E"”;CHR$(24) 

5560 LOCATE 6, 16:PRINT CHR$( 24) ;"*-1 
-";CHR$( 24) ;” Berechnung de 

r Umlaufzeit"” 

5570 LOCATE 6, 18:PRINT CHR$( 24) ;"-2 

-";CHR$( 24) ;" Berechnung de 

r Umlaufgeschwindigkeit” 

5580 LOCATE 6,20:PRINT CHR$( 24) ;"-3 
-";CHRA$( 24) ;” Berechnung de 
r Frequenz” 

5590 LOCATE 6,22:PRINT CHA$( 24) ;"-a 
-";CHR$( 24) ;” Berechnung de 
r Winkelgeschwindigkeit” 


5600 a$=INKEY$:IF a$="" THEN 5600 
5610 a=VAL(a$) 

5620 ON a GOSUB 5640,5830, 6040, 6220 
5630 IF a>5 OR a<1 THEN 5600 

5640 ” 

5650 ’Berechnung der Umlaufzeit 
5660 ’ 


5670 CLS#1:FOR x=1 TO 300:NEXT:CLS# 

2:FOR x=1 TO 300:NEXT:CLS#3 

5680 GOSUB 6410 

5690 CL.5#1 

5700 LOCATE 27,2:PRINT CHR$(24);"” B 

erechnung der Umlaufzeit ";CHR$( 24) 

5710 LOCATE 5,5:PAINT"Bitte geben 5 
ie die Anzahl der Umdrehungen pro M 
inute ein ";CHR$( 24) ;"n=" ;CHR$( 24 

); :INPUT umdreh 

5720 T=1/umdreh 

5730 LOCATE 5,8:PRINT"Bei insgesamt 
";CHR$( 24) ;umdreh; CHR$( 24) ;" Umdre 

hungen pro Minute, betraegt die Dau 

er fuer" 

5740 LOCATE 5,9:PRINT"fuer eine Umd 

rehung genau ";CHR$( 24) ;T;CHR$( 24); 
" Minuten. ” 

5750 LOCATE 5,10:PRINT"Diese Umlauf 
zeit bleibt waehrend des ganzen Bew 

egungsablaufes konstant !” 

6760 GOSUB 6940 

5770 a$=INKEY$:IF 

5780 a=VAL(a$) 

5790 IF a$="n" OR 

5800 IF a$="h" OR 

5810 IF a$="m” OR 

5820 IF a$="e” OR 

5830 

5840 ’Berechnung der Umlaufgeschwin 

digkeit 

5850 

5860 CLS#1:FOR x=1 TO 300:NEXT:CLS# 
2:FOR x=1 TO 300:NEXT:CLS#3 

5570 GOSUB 6410 

588580 CLS#1 


a$="" THEN 5770 


THEN 5690 
THEN 660 
THEN 5540 
THEN 7010 


gung 5890 LOCATE 22,2:PRINT CHR$(24);" B 29 


85 


LISTING 


erechnung der Umlaufgeschwindigkeit 
":CHR$( 24) 

5900 LOCATE 5,5:PRINT"Bitte geben 5 
ie die Anzahl der U/min ein (in 1 

/nmin) ";CHR$( 24) ;"n=";CHR$( 24); :I 

NPUT n 

5910 LOCATE 5,7:PRINT"Bitte geben 5 
ie den Radius ein ( 

in m) : ";CHA$( 24) ;"r=";CHA$( 24) ;:ıI 

NPUT r 

5920 v=( PI#2*r#n) /60 

5930 LOCATE 5,9:PRINT"Bei ";CHR$( 24 

);n;CHA$(24) ;” Umdrehungen pro Minu 
te und" 

5940 LOCATE 5,10:PRINT"einem Radius 
von ";CHR$( 24) ;r;CHRA$( 24) ;” Metern 


3 

5950 LOCATE 5,11:PRINT"betraegt die 
Umlaufgeschwindigkeit der Scheibe 
genau” 

5960 LOCATE 5,12:PRINT CHR$( 24) ;v;C 
HA$( 24) ;” Meter pro Sekunde.” 

5970 GOSUB 6940 
5980 a$-INKEY$:IF 
5990 a=VAL(a$) 
6000 IF a$="n"” OA 
6010 IF a$="h" OR 
6020 IF a$="m" OR 
6030 IF a$=-"e” OR 
6040 

6050 "Berechnung der Frequenz 

6060 

6070 CLS#1:FOR x=1 TO 300:NEXT:CLSA 
2:FOR x=1 TO 300:NEXT:CLS5#3 

6080 G0SUB 6410 

6090 CLSA1 

6100 LOCATE 28,2:PARINT CHR$(24);"” B 
erechnung der Frequenz ”;CHR$( 24) 
6110 LOCATE 5,5:PRINT"Bitte geben 5 
ie die Umlaufzeit ein (in min 
.) : ";CHA$(24) ;"T=";CHA$( 24) ; : INPU 
TT 

6120 f=1/T 

6130 LOCATE 5,9:PRINT"Bei der Umlau 
fzeit fuer eine Umdrehung von ";CHR 

$( 24) ;T;CHRA$( 24) ;" Minuten,” 

6140 LOCATE 5, 10:PRINT"betraegt die 
Frequenz genau ";CHR$( 24) ;F;CHR$(2 

4);” 1/Minute !” 
6150 GOSUB 6940 
6160 a$=INKEY$:IF 
6170 a=VAL(a$) 
6180 IF a$="m” OR 

6190 IF a$="n" OR 
6200 IF a$="h"” OR 

6210 IF a$="e"” OR 
6220 

6230 ’Berechnung der Winkelgeschwin 

digkeit 

6240 


a$-"" THEN 5980 


a$="N” THEN 5880 
a$="H" THEN 660 

a$="M" THEN 5540 
a$="E"” THEN 7010 


a$="" THEN 6160 


a$="H" 


THEN 5540 
THEN 6090 
THEN 660 

THEN 7010 


6750 CLS#1:FOR x=1 TO 300:NEXT:CLSA 
2:FOR x=1 TO 300:NEXT:CLS#3 

6260 GOSUB 6410 

6270 CLS#1 

6280 LOCATE 22,2:PRINT CHR$(24);"” B 

erechnung der Winkelgeschwindigkeit 
”";CHR$( 24) 

6290 LOCATE 5,5:PRINT” Bitte geben 

Sie die Umlaufzeit ein (in mi 

n.) : ";CHR$(24) ;"T=";CHA$( 24) ; : INP 
uUTT 

6300 w=( 2#PI) /T 

6310 LOCATE 5,9:PRINT”"Bei einer Uml 
aufzeit der Scheibe von ";CHR$( 24); 
T;CHR$( 24) ;” Minuten, ” 

6320 LOCATE 5,10:PAINT"betraegt die 
Winkelgeschwindigkeit "”;CHA$( 24) ;w 


;‚CHR$C24) ;” 1/Minute.”" 

6330 GOSUB 6940 

6340 a$=INKEY$:IF a$="" THEN 6340 
6350 a=VAL(a$) 

6360 IF a$="n" OR a$="N" THEN 6270 
6370 IF a$="m” OR a$="M" THEN 5540 
6380 IF a$="h" OR a$="H" THEN 660 
6390 IF a$="e”" OR a$="E" THEN 7010 
6400 ” 

6410 

6420 ’Grafik zur gleichfoermigen Dr 
ehbewegung 

6430 

6440 CLS#2 

6450 DEG 

6460 ORIGIN 100, 104 

6470 MOVE 0,52 

6480 FOR a=1 TO 360 STEP 1 


6490 DRAW 52#5IN( a) ,‚52#COS( a) :NEXT 
6500 MOVE 0,40 

6510 FOR c=270 TO 360 STEP 1 

6520 PLOT A40*#SIN(c) , 40*COS(c) :NEXT 
6530 RAD 

6540 ORIGIN 0,0 

6550 PLOT 100, 104:DRAW 152,104 

6560 LOCATE 16, 18:PRINT”r"” 

6570 PLOT 152, 104:DRAW 152, 160 

6580 LOCATE 21, 17:PRINT”v” 

6590 MOVE 152,160:DRAWA -4,-4:MOVE 
152, 160:DRAWR 4,-4 

6600 MOVE 60, 104:DRAWAR -7,7:MOVE 60 
‚104:DRAWR 7,7 

6610 MOVE 100,104:DRAWR 4,4:MOVE 10 
0,104:DRAWR -4,-4:MOVE 100, 104 :DRAW 
R -4,4:MOVE 100, 104:DRAWR 4,-4 

6620 1L.OCATE 13, 18:PRINT”M” 

6630 LOCATE 17,14:PRINT CHR$( 24) ;” 
Drehbewegung einer Scheibe ";CHR$(2 
4) 

6640 LOCATE 30, 16:PRINT CHR$( 24) ;"- 
r-"”;CHRA$(24);” = Radius” 

6650 LOCATE 30, 17:PRINT CHRA$( 24) ;"”- 
v-";CHR$(24);” = Umfangsgeschwindig 


LISTING 


keit" 

6660 LOCATE 30, 18:PRINT CHRA$( 24) ;”- 

T-";CHA$(24) ;” = Umlaufzeit” 

6670 LOCATE 30, 19:PRINT CHR$( 24) ;"- 

J-";CHR$(24);” = Traegheitsmoment” 

6680 LOCATE 30,20:PRINT CHR$( 24) ;"- 

f-";CHA$( 24) ;" = Frequenz” 

6690 LOCATE 30,21:PRINT CHR$( 24) ;"”- 
"zZCHR$( 189) ;"-";CHA$C24);” = Winkel 

geschwindigkeit” 

6700 LOCATE 30,22:PRINT CHR$( 24) ;"- 

E-";CHR$(24);" = Rotations-Energie"” 

6710 LOCATE 30,23:PRINT CHR$( 24) ;”- 

M-";CHA$(24) ;"” = Mittelpunkt” 

6720 LOCATE 30,24:PRINT CHA$( 24) ;"- 

n-";CHA$(24);" = Anzahl der U/min" 

6730 RETURN 

6740 

6750 ’Darstellung des Bildes zum fr 

eien Fall 

6760 

6770 CLS#2 

6780 PLOT 88,32:DRAW 296, 32:PLOT 10 

0,24:DRAW 100, 176:PLOT 284,24:DRAW 

284,176 

6790 MOVE 176, 128:DRAWA 32,0:DRAWR 
0,32:DRAWA -32,0:DRAWR 0,-32 

6800 MOVE 192,144:FILL 3 

6810 MOVE 152,40:DRAWAR -8,0:DRAWR O 
‚104:DRAWR 8,0 

6820 LOCATE 17,20:PRINT"h" 

6830 MOVE 192,48:DRAWR 0,72:MOVE 19 
2,48:DRAWAR 4,4:MOVE 192,48:DRAWR -4 
a 

’ 

6840 LOCATE 26,20:PRINT”g” 

6850 LOCATE 41,16:PRINT CHRA$( 24) ;" 
h = Fallhoehe ":CHRA$( 24) 

6860 LOCATE 41,18:PRINT CHR$( 24) ;” 
ge = 9.81 m/s’2 ";CHRA$( 24) 

6870 LOCATE 41,20:PRINT CHR$( 24) ;" 
v= Follgeschw. ";CHR$( 24) 

6880 LOCATE 41,22:PRINT CHR$(24) ;"” 
t = Fallzeit "-CHRA$( 24) 

6890 LOCATE 13,14:PRINT CHA$( 24) ;” 

Schaubild - freier Fall ";CHR$( 24) 
6900 RE.TURN 

6910 

6920 ’Unterprogramm Menue 

6930 ” 

6940 CLS#3 

6950 PRINTA#3 

6960 PRINT#3," ";CHR$( 24) ; "N" ;CHA$( 

24);” = Neue Rechnung” :PRINT#3 

6970 PRINT#3," ";CHR$( 24) ;"H" ; CHR$( 

24);" = Hauptmanue”:PRINT#3 

6980 PRINT#3," ”;CHR$( 24) ; "M" ; CHR$( 
24);" = Menue" :PRINT#3 

6990 PRINT#3," ";CHA$( 24) ; "E" ;CHR$L 
24);" = Programmende” 

7000 RETURN 


7010 CLS:END:NEW 


EINMALIGES 
SONDER-ANGEBOT! 
ZWEI 
SOFTBOX-KASSETTEN 


AUS LAGER-BESTAND 
FÜR SCHNEIDER CPC 


NUR DM 10,—! 


KEIN UMTAUSCH — 
KEINE GARANTIE 
KEINE AUSWAHL! 


NUR, SOLANGE 
VORRAT 
REICHT! 

SONST GELD 
ZURÜCK 


COUPON 


Hiermit möchte ich das Sonderangebot von 
Schneider aktiv Special nutzen und bestelle zwei 
Softboxen aus dem Lagerbestand zu insgesamt 
DM 10,— inkl. Porto und Versandkosten. Mir ist 
bekannt, daß bei diesem Sonderpreis Rückgabe 
und Umtausch ausgeschlossen sind. Sollte das 
Sonderangebot vergriffen sein, erhalte ich um- 
gehend mein Geld zurück. 
OD 10 DM habe ich beigefügt (keine Rechnung, 
keine Nachnahme!) 


Vorname- 
Familienname 
Str./Nr. 
PLZ/Ort 


Ausschneiden und einsenden an „SCHNEIDER 
AKTIV SPECIAL-SONDERANGEBOT, 
Heßstraße 90, 8000 München 40 


Mit dieser Unterschrift erkenne ich obige 
Bedingungen an 


Unterschrift 


LISTING 


100 "SEHEN 
110 ’* STARTER FUER COIN * 
120 ’# VON %* 
130 ’* MARKUS ADAMKSI %* 
130 ’* FUER # 
150 '# SCHNEIDER AKTIV * 
160 ’* CPC 464 je* 
170 RR HEerucHEHUNETTUREHREINEH 
180 MEMORY E7FFF 


190 RANDOMIZE TIME:RUN"coin.bin” 


COIN 


Wer von uns hat nicht schon mal davon geträumt, ein- 
malin Las Vegas Urlaub zu machen und an den be- 
rühmten ‚‚einarmigen Banditen“, den Spielautomaten 
sein Glück zu versuchen? Einige können es sich leisten, 
für die anderen bleibt es wohl ein Traum. Das muß 
aber nicht so sein! Mit dem Spielprogramm ‚‚Coin“ 
von Markus Adamski haben Sie jetzt die Möglich- 
keit, mit Ihrem CPC 464 an so einem Automa- 

ten Ihr Glück zu versuchen. Sie können natür- 

lich auch Ihre Nachbarn an diesem Vergnügen teil- 
haben lassen — eine gute Gelegenheit, Ihre Haushalts- 
kasse ein wenig aufzubessern. 

„Coin“ ist vollständig in Maschinensprache geschrie- 
ben und damit auch besonders schnell. Aufgrund 
einiger ROM-Routinen läuft das Programm nur auf 
dem CPC 464. Tippen Sie zuerst das Startprogramm 
“COIN“ ab und speichern Sie s auf einer Kassette 
oder Diskette ab. Danach tippen Sie bitte den Data- 
lader ab und speichern ihn ebenfalls ab. Eventuell 
auftretende Fehler werden somit nicht zur Katastro- 
phe. Nach dem Starten des Dataladers wird das Binär- 
programm “COIN.BIN“ generiert und automatisch 
abgespeichert. Den Datalader brauchen Sie nun 
theoretisch nicht mehr, sollten ihn aber für alle Fälle 
(man weiß ja nie) noch aufheben. Wem die Tipperei 
zu mühsam ist — es sind immerhin 24 Kbyte Datas — 
der findet das Programm selbstverständlich auch auf 
der Softbox. 

Nach Programmstart ertönt ein kurzes Musikstück. 
Danach kann man den Automaten mit der Taste “*S“ 
starten. Die Walzen beginnen sich nun zu drehen. 
Nach einiger Zeit hält die erste Walze an. Mit einem 
erneuten Druck auf die “S‘“-Taste kann man sie wie- 
der starten. Dies funktioniert allerdings nur einmal! 
Haben alle Walzen angehalten, hören Sie einen dump- 
fen Ton, wenn Sie verloren haben, oder einen drei- 
fachen Gong, wenn Sie gewonnen haben. Mit der 
Taste “C‘“ wird der Gewinn ausgezahlt und Ihrem 
Vermögen angerechnet. Sie können aber auch um 
den Gewinn spielen. Dies geschieht mit der Taste 
“G‘“, In diesem Fall erscheint rechts neben dem 
Spielautomaten ein kleines Menü, über das sich ein 
Balken bewegt. Mit der Leertaste wird dieser über ei- 
nem Menüpunkt zum Stillstand gebracht. Bei dem 
Menüpunkt “TRES“ verdreifacht sich Ihr Gewinn. 
Mit “DOUB“ verdoppelt sich der Gewinn und mit 
“EVEN“ bleibt der Gewinn, wie er ist. Mit “LOSE“ 
verlieren Sie den Gewinn. 

Am Anfang des Spieles besitzen Sie ein Barvermö- 
gen von 10 Dollar. Jedes einzelne Spiel kostet 10 
Cents, die automatisch abgezogen werden. ‚„Coin“ 

ist beendet, sobald Sie entweder alles verloren ha- 
ben oder 100 Dollar Barvermögen besitzen. 

Bitte vergessen Sie nicht, daß „Coin“ ausschließlich 
auf dem CPC 464 läuft. Wer jedoch eine Anpassung 
findet, der soll sie uns schicken. Wir sind dann ger- 

ne bereit, diese abzudrucken. 


ı FEUERT IEH RUN 


2 t# DATALADER FUER COIN.BIN # 
3 8 VON * 
a ’* MARKUS ADAMKSI #* 
5 '* FUER #* 
6 '’* SCHNEIDER AKTIV #* 
ver CPC 464 # 
8 PRRRRURUNTECHEEHHEEEE FHERURERRER 


I MEMORY E7FFF:DEFINT a-zZ:zeile=10 


2D FOR a=6&65000 TO 6998B STEP 20 

30 s=0:FOR b=0 TO 19:READ a$:s=s+VA 
L("&E"+a$) :POKE atb,VAL( "&E"+a$) :NEXT 
40 READ a$:ıF S<>VAL("E"+a$) THEN P 
RINT"Error in";zeile:STOp 
50 PRINT"Zeile"zeile"”O.K.” 
ile+10:NEXT 

Ba INTTAchLung ! Absaven":CALL &6B 
70 SAVE"coin.bin" 
25 

RO END 


1000 DATA CD,A7,89,AF,CD,OE,BC.3E 
w 3 

F 2 L) ’ L Pe ’ 
F,21,00,00, 11,18,09,0D,44,B6, 21,18, 
1010 DATA D8,CD,27,80,21,AF,D8.c 

= ’ > » ’ D,2 
2,80,21,89,08,CD,27,80,03,C5,89, 11, 
1020 DATA 43,80,06,19,C5,06.0A,1A.7 
7,23,13,10,FA,05,11,0A,00,ED,52,0D, 
0684 
’030 DATA 26,8C,01,C1,10,EA,C9,CC,C 
C,CC,CC,CC,C0,CC,CC,CC,88,CC,Cb,Ct, 
OEAF 
1040 DATA GC,CC,C0,CC,CC,C6,88,98,9 
A,9A,9A,9A,9A,9A,9A,9A,88,CD,65,65, 
0607 
1050 DATA 65,65,65,65,65,65,88,98,8 
F,OF,OF,OF,OF,OF,OF,9A,88,CD,25,0F, 
06BA 
1060 DATA OF,OF,OF,OF,OF,65,88,98,8 
F,OF,OF,OF,OF,OF,OF,9A,58,CD,25,0F, 
DADC 
1070 DATA OF,OF,OF,OF,OF,65,88,98,8 
F,OF,OF,OF,DF,OF,OF,9A,88,0D,25,0F, 
DAnc 
1080 DATA OF,OF,OF,OF,OF,65,88,98,8 
F,OF,OF,OF,OF,OF,OF,9A,88,0D,25,0F, 
DADC 
1090 DATA OF,OF,OF,OF,OF,65,88,98,8 
F,OF,OF,OF,OF,OF,Or,9A,858,CD,25,0F, 
Dane 
1100 DATA OF,OF,OF,OF,OF,65,88,98,8 
F,OF,OF,OF,OF,OF,OF,9A,B8,CD,25,0F, 
Danc 
1110 DATA OF,OF,OF,OF,OF,65,88,98,8 
F,OF,OF,OF,OF,OF,OF,9A,88,CD,25,0F, 
DADC 
1120 DATA OF,OF,OF,OF,OF,65,88,98,8 
F,OF,OF,OF,OF,OF,OF,9A,88,CD,25,0F, 


:zeile=ze 


‚b,68000,81988,&92 


EEE. 


LISTING 


04D0C 
1130 DATA OF,OF,OF,OF,OF,65,88,98,8 
F,OF,OF,OF,OF,OF,OF,9A,88,CD,65,65, 
0572 
1140 DATA 65,65,65,65,65,65,88,98,9 
A,9A,9A,9A,9A,9A,9A,9A,88,CC,CC,CC, 
0B3A 
1150 DATA CC,CC,CC,CC,CC,CC,88,CC,C 
C,CC,CC,CC,CC,CC,CC,CC,88,0F,OF,0C, 
0D2E 
1160 DATA OE,0D,OF,OF,4A,84,C0,00,0 
F,OF,48,84,C0,0C,0D0,4A,C0,C0,C0,Co, 
D6E1 
1170 DATA 0D,4A,C0,C0,C0,C0,0F,C0,4 
8,84,C0,0D,0F,CO,48,84,C0,0D,0F,Co, 
DBF6 
1180 DATA 48,84,C0,0C,00,4A,C0,C0,C 
0,C0,00,44,C0,C0,C0,C0,0C,OF,4A,84, 
092F 
1190 DATA CO,48,854,0F,4A,84,C0,48,8 
4,0F,48,84,C0,48,85,4A,C0,C0,C0,C0, 
09A7 
1200 DATA 0D,4A,C0,C0,C0,C0,0F,OF,4 
A,84,C0,00,0F,0F,4A,85,C0,0F,OF,Or, 
O6EA 
1210 DATA OF,OF,OF,OF,OF,OF,OF,OF,O 
F,CC,OF,OF,OF,OF,4E,8D,0F,OF,OF,OF, 
D2A6 
1220 DATA CC,OF,OF,OF,OF,OF,CC,OF,O 
F,OF,OF,4E,80,0F,OF,OF,1A,64,D8,0F, 
048 
1230 DATA OF,OF,30,30,F0,A5,0F,1A,3 
0,30,F0,F0,0F,1A,30,30,70,F0,OF,30, 
06AA 
1240 DATA 30,30,70,F0,A5,30,30,30,7 
0,F0,A5,30,30,30,70,F0,A5, 1A, 30,30, 
0809 
1250 DATA FO,FO,OF,1A,30,30,F0,F0,0 
F,OF,30,70,F0,A5,OF,OF,1A,25,FO,0F, 
O7FB 
1260 DATA OF,OF,OF,OF,OF,OF,OF,OF,O 
F,OF,4E,OF,OF,OF,OF,OF,CC,OF,OF,OF, 
0228 
1270 DATA OF,4E,80,0F,OF,OF,OF,CC,0 
F,OF,OF,OF,OF,FC,AD,OF,OF,OF,SE,SC, 
DACD 
1280 DATA FC,OF,OF,OF,SE,AC,FC,AD,O 
F,OF,FC,AG,FC,AD,OF,OF,FC,FC,5C,AD, 
DA6A 
1290 DATA OF,OF,FC,FC,5C,AD,OF,OF,F 
C,FC,5C,AD,OF,OF,FC,AC,FC,AD,OF,OF, 
09CB 
1300 DATA FC,AC,FC,OF,OF,OF,FC,SC,F 
C,OF,OF,OF,SE,S5C,AD,OF,OF,OF,OF,FC, 
07F1 
1310 DATA OF,OF,OF,OF,OF,OF,OF,OF,0 
F,OF,OF,OF,OF,CC,OF,OF,OF,OF,4E,8D, 
02A6 
1320 DATA OF,OF,OF,OF,CC,OF,OF,OF,O 
F,30,30,0F,OF,OF,1A,30,30,25,0F,OF, 


028E 


1330 DATA 1A, 30,30, 25,0F,OF, 1A,30,3 
8,25,0F,0F,30,38,30,25,0F,1A,30,30, 
02c8 

1340 DATA 30,30,0F,30,30,30,34,30,0 
F,30,38,30,30,30,25,30,34,30,38,30, 
0388 

1350 DATA 25,30,30,30,30,38,25,1A,3 
0,38, 30,30,0F,0F,30, 30,38, 25,0F,0r, 
0310 

1360 DATA 1A, 30, 30,0F,OF,OF,OF,OF,O 
F,OF,OF,OF,OF,OF,OF,OF,OF,OF,OF,Or, 
0179 

1370 DATA OF,OF,OF,OF,OF,OF,OF,OF,O 
F,oF,OF,1A,25,0F,0F,OF,30,24, 18,25, 
DIA2 

1380 DATA OF,1A,24,18,24,18,0F,24, 1 
8,30,30,24,25,18,30,30,30,30,0D, 18, 
0292 

1390 DATA 30,30, 30,30,00,24,18,30,3 
0,24,25,1A,24,18,24,18,0F,OF,30,24, 
0286 

1400 DATA 18,25,0F,OF,OF,1A,25,0F,0 
F,OF,OF,OF,OF,OF,OF,OF,OF,OF,OF,Or, 
D16C 

1410 DATA OF,OF,OF,OF,OF,OF,OF,OF,O 
F,OF,OF,OF,OF,OF,OF,80,0F,OF,OF,or, 
O1AA 

1420 DATA OF,CC,OF,OF,OF,OF,OF,4E,8 
9,03,0F,OF,OF,OF,03,81,0F,0F,O0F,Or, 
DO2FC 

1430 DATA 42,42,07,0F,OF,OF,0B,81,0 
7,0F,OF,OF,08,81,07,0F,O0F,OF,42,42, 
02BC 

1440 DATA 07,0F,OF,OF,42,42,07,0F,0 
F,08,60,42,07,0F,0F,42,81,C0,07,08, 
03A4 

1450 DATA 03,C0,42,61,0F,42,C0,81,C 
0,81,0F,03,03,42,C0,07,0F,42,C0,C0, 
0748 

1460 DATA 81,0F,0F,08B,03,03,0F,0F,0 
F,OF,OF,OF,OF,OF,OF,OF,OF,OF,OF,OF, 
0182 

1470 DATA OF,OF,OF,OF,DF,OF,OF,OF,4 
B,G3,0F,OF,OF,OF,48,87,87,0F,OF,üF, 
0348 

1480 DATA OF,87,48,0F,OF,OF,OF,87,4 
B,OF,OF,OF,OF,87,0F,87,0F,OF,OF,87, 
O3FC 

1490 DATA OF,87,0F,OF,4B,0F,5A,FO,O 
F,OF,48,0F,FO,FO,A5S,OF,FO,AS,FÜO,FO, 
0809 

1500 DATA A5,5A,FO,FO,FO,FO,AS,FO,F 
0,FO,FO,FO,OF,FO,FO,A5,5A,A5,OF,5A, 
DE1O 

1510 DATA FO,OF,OF,OF,OF,OF,OF,OF,O 
F,OF,OF,3F,1F,3F,OF,1F,3F,3F,OF,2F, 
030D 

1520 DATA OF,2F,3F,2F,2F,OF,3F,OF,3 


F,2F,1F,2F,3F,2F,3F,2F,3F,2F,3F,2F, 2» 
89 


LISTING 


D3AC 
1530 DATA 1F,2F,3F,1F,2F,3F,1F,1F,1 
F,2F,3F,2F,3F,1F,3F,2F,3F,2F,1F,2F, 
0397 
1540 DATA 3F,1F,2F,3F,3F,3F,1F,2F,3 
F,2F,3F,1F,3F,2F,1F,2F,2F,2F,3F,1ir, 
03DC 
1550 DATA 3F,OF,3F,3F,1F,2F,3F,2F,3 
F,iF,3F,2F,3F,2F,2F,2F,3F,1F,3F,3f, 
OIFt 
1560 DATA 1F,3F,1F,2F,3F,2F,3F,1F,3 
F,2F,3F,2F,3F,0F,3F,1F,3F,3F,1F,3r, 
03DC 
1570 DATA IF,2F,3F,2F,3F,2F,3F,2F,3 
F,2F,3F,OF,3F,1F,2F,3F,1F,2F,OF,3F, 
03BC 
1580 DATA OF,1F,3F,3F,OF,2F,OF,2F,3 
F,2F,3F,1F,3F,0F,3F,2F,1F,3F,OF, ir, 
033€ 
1590 DATA 3F,3F,OF,2F,UF,2F,3F,2F,2 
F,OF,3F,OF,3F,1F,2F,2F,3F,2F,3F,2F, 
0I8C 
1600 DATA 3F,2F,3F,2F ,1F,2F,3F,1F,2 
F,3aF,iF,1F,2F,2F,3F,2F,3F,1F,3F,2F, 
O3CC 
1610 DATA 3F,2F,1F,2F,3F,1F,2F,3F,3 
F,aF,2F,2F,3F,2F,3F,1F,3F,2F,1F,2F, 
O3EC 
1620 DATA 2F,2F,3F,1F,3F,OF,3F,3F, 1 
F,2F,3F,2F,3F,1F,3F,2F,3F,2F,2F,2F, 
03DC 
1630 DATA 3F,1F,3F,3F,1F,2F,3F,2F,3 
F,2F,3F,1F,3F,2F,3F,2F,3F,OF,3F,1ir, 
O3EC 
1640 DATA 3F,3F,1F,1F,3F,2F,3F,2F,3 
F,2F,3F,2F,3F,2F,3F,0F,3F,1F,2F,3r, 
O3FC 
1650 DATA 1F,OF,OF,3F,OF,1F,3F,3F,0 
F,2F,OF,2F,3F,2F,3F,1F,3F,OF,3F,2F, 
032C 
1660 DATA 1F,3F,OF,1F,3F,3F,OF,2F,O 
F,2F,3F,2F,2F,OF,3F,OF,3F,1F,2F,2F, 
033C 
1670 DATA 3F,2F,3F,2F,3F,2F,3F,2F,i 
F,2F,3F,1F,2F,3F,1F,3F,2F,2F,3F,2F, 
O3FC 
1680 DATA 3F,1F,3F,2F,3F,2F,1F,2F,3 
F,iF,2F,3F,3F,2F,1F,2F,3F,2F,3F,1F, 
03DC 
1690 DATA 3F,2F,1F,2F,2F,2F,3F,1F,3 
F,OF,3F,3F,2F,2F,3F,2F,3F,1F,3F,2F, 
03DC 
1700 DATA 3F,2F,2F,2F,3F,1F,3F,3F,1 
F,3F,2F,2F,3F,2F,3F,1F,3F,2F,3F,2F, 
040C 
1710 DATA 3F,O0F,3F,1F,3F,3F,1F,1F,2 
F,2F,3F,2F,3F,2F,3F,2F,3F,2F,3F,OF, 
O3CC 
1720 DATA 3F,1F,2F,3F,1F,2F,1F,3F,0 
F,iF,3F,3F,0F,2F,OF,2F,3F,2F,3F,1F, 


036C 


1730 DATA 3F,OF,3F,1F,3F,3F,0F,1F,3 
F,3F,OF,2F,OoF,2F,3F,2F,2F,OF,3F,OF, 
034C 
1740 DATA 3F,1F,3F,2F,3F,2F,3F,2F,3 
F,2l,3F,2F,1F,2F,3F,1F,2F,3F,AF,1r, 
0306 
1750 DATA 3F,2F,3F,2F,3F,1F,3F,2F,3 
F,2F,1F,2F,3F,1F,2F,3F,3F,1F,1F,2r, 
03DC 
1760 DATA 3F,2F,3F,1F,3F,2F,1F,2F,2 
F,2F,3F,1F,3F,OF,3F,OF,OF,2F,3F,2F, 
o3Br: 
1770 DATA 3F,1F,3F,2F,3F,2F,2F,2F,3 
F,1F,3F,3F,1F,3F,1F,2F,3F,2F,3F,1fF, 
O3EC 
1780 DATA 3F,2F,3F,2F,3F,0F,3F,1F,3 
F,3F,1F,3F,1F,2F,3F,2F,3F,2F,3F,2F, 
O3FC 
1790 DATA 3F,2F,3F ‚OF,3F,1F,2F,3F, 1 
F,3F,1F,3F,0F,1F,3F,3F,O0F,2F,OF,2F, 
036C 
1800 DATA 3F,2F,3F,1F,3F,0F,3F,OF,O 
F,3F,OF,1F,3F,3F,OF,2F,OF,2F,3F,2F, 
034€ 
1810 DATA 2F,OF,3F,OF,3F,1F,2F,2F,3 
F,2F,3F,2F,3F,2F,3F,2F,1F,2F,3F,ir, 
O3AC 
1820 DATA 2F,3F,1F,1F,3F,2F,3F,2F,3 
F,1F,3F,2F,3F,2F,1F,2F,3F,1F,2F,3r, 
O5Dr: 
1830 DATA 3F,1F,3F,2F,3F,2F,3F,1F,3 
F,2F,1F,2F,2F,2F,3F,1F,3F,OF,3F,OF, 
O3AC 
1840 DATA IF,2F,3F,2F,3F,1F,3F,2F,3 
F,2F,2F,2F,3F,1F,3F,3F,1F,3F,2F,2F, 
O3EC 
1850 DATA 3F,2F,3F,1F,3F,2F,3F,2F,3 
F,OF,3F,1F,3F,3F,ıF,1F,2F,2F,3F,2F, 
03DC 
1860 DATA 3F,2F,3F,2F,3F,2F,3F,OF,3 
F,iF,2F,3F,1F,2F,1F,3F,OF,1F,3F,3F, 
03BC 
1870 DATA OF,2F,OF,2F,3F,2F,3F,1F,3 
F,OF,3F,2F,1F,3F,OF,1F,3F,3F,OF,2F, 
034C 
1880 DATA OF,2F,3F,2F,2F,OF,3F,OF,3 
F,iF,2F,2F,3F,2F,3F,2F,3F,2F,3F,2F, 
O3AC 
1890 DATA 1F,2F,3F,1F,2F,3F,1F,1F,3 
F,2F,3F,2F,3F,1F,3F,2F,3F,2F,1F,2F, 
03BC 
1900 DATA 3F,1F,2F,3F,3F,1F,3F,2F,3 
F,2F,3F,1F,3F,2F,1F,2F,2F,2F,3F,1F, 
03DC 
1910 DATA 3F,OF,3F,OF,iF,2F,3F,2F,3 
F,iF,aF,2F,3F,2F,2F,2F,3F,1F,3F,3F, 
D3CC 
1920 DATA IF,1F,2F,2F,3F,2F,3F,1F,3 
F,2F,3F,2F,3F,0F,3F,1F,3F,3F,1F,1F, 


90 


LISTING 


O3AC 


1930 DATA 2F,2F,3F,2F,3F,2F,3F,2F,3 
F,2F,3F,OF,3F,1F,2F,3F,1F,2F,1F,3F, 
03DC 
1940 DATA OF,1F,3F,3F,OF,2F,OF,2F,3 
F,2F,3F,1F,3F,0F,3F,OF,OF,3F,OF, ir, 
030C 
1950 DATA 3F,3F ,OF,2F,OF,2F,3F,2F,2 
F,OF,3F,OF,3F,1F,2F,2F,3F,2F,3F,2F, 
038C 
1960 DATA 3F,2F,3F,2F,1F,2F,3F,1F,2 
F,3F,1F,3F,2F,2F,3F,2F,3F,1F,3F,2F, 
O3EC 
1970 DATA 3F,2F,1F,2F,3F,1F,2F,3F,3 
F,3F,2F,2F,3F,2F,3F,1F,3F,2F,1iF,2F, 
D3EC 
1980 DATA 2F,2F ,3F,1F,3F,OF,3F,3F ‚1 
F,2F,3F,2F,3F,1F,3F,2F,3F,2F,2F,2F, 
0307, 
1990 DATA 3F,1F,3F,3F,1F,3F,1iF,2F,3 
F,2F,3F,1F,3F,2F,3F,2F,3F,0F,3F,1F, 
030€ 
2000 DATA 3F,3F,1F,3F,1F,2F,3F,2F,3 
F,2F,3F,2F,3F,2F,3F,0F,3F,1F,2F,3F, 
O3FC 
2010 DATA 1F,3F,1F,3F,OF,1F,3F,3F,0 
F,2F,OF,2F,3F,2F,3F,1ıF,3F,OF,3F,2F, 
0367 
2020 DATA 1F,3F,OF,1F,3F,3F,OF,2F,0 
F,2F,3F,2F,2F,OF,3F,OF,3F,1F,2F,2F, 
0330 
2030 DATA 3F,2F,3F,2F,3F,2F,3F,2F,1 
F,2F,3F,1F,2F,3F,1F,1F,2F,2F,3F,2F, 
0306 
2040 DATA 3F,1F,3F,2F,3F,2F,1F,2F,3 
F,iF,2F,3F,3F,2F,1F,2F,3F,2F,3F,iF, 
0307: 
2050 DATA 3F,2F,1F,2F,2F,2F,3F,1F,3 
F,OF,3F,1F,2F,2F,3F,2F,3F,1F,3F,2F, 
O38C 
2060 DATA 37 ,2F,2F,2F,3F,1F,3F,3F,1 
F,iF,2F,2F,3F,2F,3F,1F,3F,2F,3F,2F, 
OBEC 
2070 DATA 3F ,‚OF,3F,1F,3F,3F,1F,1F,2 
F,2F,3F,2F,3F,2F,3F,2F,3F,2F,3F,OF, 
D3CE 
2080 DATA 3F,1F,2F,3F,1F,2F,1F,3F,O 
F,iF,3F,3F,0F,2F,OF,2F,3F,2F,3F,1F, 
036C 
2090 DATA 3F,OF,3F,2F,1F,3F,OF,1F,3 
F,3F,OF,2F,OF,2F,3F,2F,2F,OF,3F,OF, 
033C 
2100 DATA 3F,1F,2F,2F,3F,2F,3F,2F,3 
F,2F,3F,2F,1F,2F,3F,1F,2F,3F,1iF,1F, 
DICC 
?110 DATA 2F,2F,3F,2F,3F,1F,3F,2F,3 
F,2F,1F,2F,3F,1ıF,2F,3F,3F,2F,OF,2F, 
D3CC 
2120 DATA 3F,2F ,3F,1F,3F,2F,1F,2F,2 
F,2F,3F,1F,3F,OF,3F,3F,2F,2F,3F,2F, 
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2130 DATA 3F,1F,3F,2F,3F,2F,2F,2F,3 
F,1F,3F,3F,1F,3F,2F,2F,3F,2F,3F, ir, 
oO3FcC 

2180 DATA 3F,2F,3F,2F,3F,0F,3F,1F,3 
F,3F,1F,1F,2F,2F,3F,2F,3F,2F,3F,2F, 
O3EC 

2150 DATA 3F 
F,2F,1F,3F,0 
035C 

2160 DATA 3F,2F,3F,1F,3F,OF,3F,3F,1 
F,3F,OF,1F,3F,2F,1F,2F,3F,2F,3F,3r, 
D3CE 

2170 DATA OF,1F,2F,OF,3F,2F,1F,3F,2 
F,2F,3F,1F,2F,2F,3F,2F,3F,2F,3aF,2r, 
039C 

2180 DATA 2F,3F,1F,1F,1F,3F,2F,3F 1 
F,iF,2F,2F,3F,2F,3F,2F,3F,2F,2F,3r, 
03CC 

2190 DATA 1F,3F,1F,3F,2F,3F,1F,1F,2 
F,2F,3F,2F,3F,2F,3F,2F,2F,OF,3F,3R, 
03CC 

2200 DATA 1F,3F,2F,3F,1F,1F,2F,2F,3 
F,2F,3F,2F,OF,OF,2F,1F,3F,3F,1F,3r, 
038C 

2210 DATA 2F,3F,1F,1F,2F,2F,3F,2F,3 
F,2F,3F,2F,2F,2F,3F,3F,1F,3F,2F,2F, 
O3EC 

?220 DATA 3F,1F,2F,2F,3F,2F,3F,2F,3 
F,2F,2F,2F,3F,2F,OF,3F,OF,1F,3F,2F, 
03BC 

2230 DATA 1F,2F,OF,2F,OF,2F,3F,2F,2 
F,3F,1F,AF,21,88,89,F5,46,48,65,CD, 
070E 

2240 DATA 32,BC,E1,23,F1,3C,FE,10,2 
0,F1,C9,09,18,00,03, 15,06,0C,0E, 19, 
0679 

2250 DATA 12,1A,02,0B,OF,0D,1A,06,C 
4,21,00,00,11,25,00,05,3E,F1,77,23, 
GA4ER 

2260 DATA 77,19,30,77,23,77,2B,ED,5 
2,2B,05,CD,26,BC,D1,C1,10,E9,3E,05, 
08C4 

2270 DATA CD,DE,BB,DD,21,20,88,CD,F 
B,8BA,3E,00,CD,DE,BB,DD,21,60,8B,CD, 
OBE?2 

2280 DATA F8,BA,3E,03,CD,DE,BB,06,0 
4,11,27,00,21,68,01,E5,C65,05,CD,C0, 
0904 

2290 DATA BB,D1,05,21,38,01,CD,F6,B 
B,D1,21,4F,00, 19,EB,C1,E1,10,E8,21, 
DA39 

2300 DATA 92,FE,11,A1,83,CD,BE,BA,2 
1,F2,FD,11,A1,83,CD,BE,8A,21,F8,FD, 
DCAA 

2310 DATA 11,A1,83,CD,BE,8A,DD,21,A 
D,88,06,07,D0D0,E5,C5,0D,66,01,0D,6E, 
DAA3 

2320 DATA 00,DD,56,03,DD,5E,02,D5,E 


‚2F,3F,0F,3F,1F,2F,3F,1 
F,IF,3F,3F,OF,2F,OF,?2F, 


5,CD,BF,8A,E1,11,06,00,19,D1,05,E5, 39 


LLL———————————————————————————————— nn 


LISTING 


O9DE 


2330 DATA CD,BE,BA,E1,11,06,00,19,D 
1,CD,BE,8A,C1,DD,E1,DD,23,0D,23,DD, 
0B68 
2340 DATA 23,DD,23,10,CB,DD,21,C9,8 
B,06,09,C5,0D,ES,0D,66,01,DD,6E,00, 
0975 
2350 DATA DD,56,03,DD,5E,02,CD,A5,8 
A,DD,E1,0D,23,DD,23,0D,23,00,23,C1, 
DAEE 
2360 DATA 10,E1,C3,17,8C,06,08,C5,0 
6,12,1A,77,23,13,10,FA,D5,11,12,00, 
0608 
2370 DATA ED,52,CD,26,BC,D1,C1,10,E 
A,C9,06,11,C5,06,06, 1A,CB,7F,20,0£, 
O8BD 
2380 DATA CB,6F,20,0A,CB,5F,28,06,C 
B,4F,28,02,CB,EF,CB,77,20,0E,CB, 67, 
08SC 
2390 DATA 20,0A,CB,57,28,06,CB,47,2 
8,02,CB,E7,77,23,13,10,06,D5, 11,06, 
06E7 
2400 DATA 00,ED,52,C0,26,8C,D1,C1, 1 
0,C6,C9,06,08,C5,DD,5E,00,DD,56,01, 
0961 
2410 DATA DD,6E,02,DD,66,03,DD,ES,C 
D,CO,BB,DD,E1,DD,5E,04,0D,56,05,DD, 
OBAF 
2420 DATA 6E,06,DD,66,07,DD,ES,CD,F 
6,88,0D,E1,C1,11,08,00,0D,19, 10,01, 
DA6nD 
2430 DATA C9,00,00,00,00,3E,01,00,0 
0,3E,01,8F,01,00,00,8F,01,00,00,02, 
0269 
2440 DATA 00,3E,01,02,00,00,00,80,0 
1,3E,01,8D,01,08,00,08,00,36,01,08B, 
DIEB 
2450 DATA 00,36,01,87,01,08,00,87,0 
1,08,00,0A,00,36,01,0A,00,08,00,85, 
022F 
2460 DATA 01,36,01,85,01,04,00,04,0 
0,3A,01,04,00,3A,01,88,01,04,00,88B, 
025B 
2470 DATA 01,04,00,06,00,3A,01,06,0 
0,04,00,89,01,3A,01,89,01,0C,00,0C, 
0187 
2480 DATA 00,32,01,0C,00,32,01,83,0 
1,0C,00,83,01,0C,00,0E,00,32,01,0£, 
DIE 
2490 DATA 00,0C,00,81,01,32,01,81,0 
1,52,FD,A1,83,B2,FC,3B,83, 12,FC,D5, 
0B0S 
2500 DATA 82,72,FB,09,82,D2,FA,6F,8 
2,32,FA,A3,81,92,F9,3D,81,B4,E5,27, 
0B90 
2510 DATA 85, 14,E5,B7,85,74,E4,47,8 
6,04,E3,07,86,34,E3,67,87,94,E2,F7, 
0065 
2520 DATA 87,F4,E1,17,89,54,E6,97,8 
4,F4,E6,07,84,CD,F3,88,C3,17,8C,CD, 


0034 


2530 DATA 0B,8C,CD, 17,8C,CD,3A,8C,C 
D,0B,8C,CD,3A,8C,CD,60,8C,CD,OB,8C, 
O9AE 
2540 DATA C3,60,8C,C5,06,05,C5,CD, 1 
9,80,C1,10,F9,C1,C9,CD,19,8D,21,C8, 
DAC? 
2550 DATA FO, 11,86,8C,06,36,C5,06,0 
8, 1A,AE,77,23,13,10,F9,D5,11,08,00, 
D68E 
2560 DATA ED,52,CD,26,BC,D1,C1,10,E 
9,C9,CD,19,80,21,C8,F0,11,36,8E,06, 
DAY9 
2570 DATA 36,C5,06,08,1A,AE,77,23, 1 
3,10,F9,D5,11,08,00,ED,52,CD,26,BC, 
0763 
2580 DATA D1,C1,10,E9,CD,19,8D,C9,C 
D,19,80,21,58,D2,11,E6,8F,06, 1F,C5, 
DASS 
2590 DATA 06,08, 1A,AE,77,23,13,10,F 
9,05,11,08,00,£0,52,CD,26,8C,D1,C1, 
O?7FA 
2600 DATA 10,E9,CD,19,80,C9,00,00,0 
0,0C,08,00,00,00,00,00,04,0C,0C,00, 
0395 
2610 DATA 00,00,00,00,04,0C,0C,00,0 
0,00,00,00,0C,0C,0C,08,00,00,00,00, 
0048 
2620 DATA 0C,0C,0C,08,00,00,00,00,0 
C,0C,0C,08,00,00,00,00,0C,0C,0C,08, 
0084 
2530 DATA 00,00,00,00,0C,0E,0C,08,0 
0,00,00,00,0C,0E,0C,08,00,00,00,00, 
005C 
2640 DATA 0C,0F,0C,08,00,00,00,00,0 
G,0C,0C,08,00,00,00,00,06,0C,0C,08, 
0087 
2650 DATA 00,00,00,00,04,0C,0C,00,0 
0,00,00,00,04,0C,06,00,00,00,00,00, 
0038 
2660 DATA 00,06,08,00,00,00,00,00,0 
0,DE,00,00,00,00,00,00,00,DE,00,00, 
0100 
2670 DATA 00,00,00,00,00,DE,00,00,0 
0,00,00,00,00,DE,00,00,00,00,00,00, 
DIBC 
2630 DATA 00,DE,00,00,00,00,00,00,0 
0,DE,00,00,00,00,00,00,00,DE,00,00, 
029A 
2690 DATA 00,00,00,00,00,DE,00,00,0 
0,00,00,00,00,DE,00,00,00,00,00,00, 
DIBC 
2700 DATA 00,DE,00,00,00,00,00,00,0 
0,DE,00,00,00,00,00,00,00,DE,00,00, 
029A 
2710 DATA 00,00,00,00,00,DE,00,00,0 
0,00,00,00,00,DE,00,00,00,00,00,00, 
oIBC 
2720 DATA 00,DE,00,00,00,00,00,00,0 
0,DE,00,00,00,00,00,00,00,DE,00,00, 
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029A 
2730 DATA 00,00,00,00,00,DE,00,00,0 
0,00,00,00,00,0E,00,00,00,00,00,00, 
O1BC 
2740 DATA 00,0DE,00,00,00,00,00,00,0 
0,DE,00,00,00,00,00,00,00,DE,00,00, 
029A 
2750 DATA 00,00,00,00,00,0E,00,00,0 
0,00,00,00,00,0E,00,00,00,00,00,00, 
oIBc 
2760 DATA 00,DE,00,00,00,00,00,00,0 
0,DE,00,00,00,00,00,00,00,DE,00,00, 
029A 
2770 DATA 00,00,00,00,00,DE,00,00,0 
0,00,00,00,00,DE,00,00,00,00,00,00, 
DIBC 
2780 DATA 00,DE,00,00,00,00,00,00,0 
0,DE,00,00,00,00,00,00,00,DE,00,00, 
029A 
2790 DATA 00,00,00,00,00,DE,00,00,0 
0,00,00,00,00,DE,00,00,00,00,00,00, 
DIBC 
2800 DATA 00,DE,00,00,00,00,CF,CF,C 
F,DE,00,00,00,00,CF,CF,CF,DE,00,00, 
0774 
2010 DATA 00,00,FC,FC,FC,FC,00,00,0 
0,00,FC,FC,FC,A8,00,00,00,00,00,00, 
078C 
2020 DATA 04,0C,0C,00,00,00,00,00,0 
C,00,0C,08,00,00,00,00,0C,0C,0C,08, 
0074 
2830 DATA 00,00,00,04,0C,0C,0C,0C,0 
0,00,00,04,0C,0C,0C,0C,00,00,00,0C, 
0074 
2840 DATA 0C,0C,0C,0C,08,00,00,0C,0 
C,0C,0C,0C,08,00,00,0C,0C,0C,0C,0C, 
0088 
2850 DATA 08,00,00,0C,0C,0C,0C,0C,0 
8,00,00,0C,0C,00C,0C,0C,08,00,00,00, 
009 
2860 DATA 00,0C,0C,0C,08,00,00,0C,0 
D,0C,0C,0C,08,00,00,0C,0D,0C,0C,0C, 
00BR 
2870 DATA 08,00,00,0C,00,0C,0C,0C,0 
A,00,00,0C,00,0E,0C,0C,08,00,00,0C, 
00AO 
2880 DATA 0C,0E,0C,0C,08,00,00,0C,0 
C,0C,0C,0C,08,00,00,0C,0C,0C,0C,0C, 
00BA 
2890 DATA 08,00,00,04,0C,0C,0C,0C,0 
0,00,00,04,06G,0C,0C,0C,00,00,00,00, 
0070 
2900 DATA 0C,0C,0C,08,00,00,00,00,0 
C,0C,0C,08,00,00,00,00,04,0C,0C,00, 
0074 
2910 DATA 00,00,00,00,00,98,A8,00,0 
0,00,00,00,00,98,A8,00,00,00,00,00, 
0286 
2920 DATA 00,9B,A8,00,00,00,00,00,0 
0,98,A8,00,00,00,00,00,00,98,AB,00, 


03C9 


2930 DATA 00,00,00,00,00,98,A8,00,0 
0,00,00,00,00,98,A8,00,00,00,00,00, 
0286 
2940 DATA 00,98,A8,00,00,00,00,00,0 
0,98,A8,00,00,00,00,00,00,98,A8,00, 
0369 
2950 DATA 00,00,00,00,00,98,A8,00,0 
0,00,00,00,00,98,A8,00,00,00,00,00, 
0286 
2960 DATA 00,98B,A8,00,00,00,00,00,0 
0,98,A8,00,00,00,00,00,00,98,A8,00, 
0309 
2970 DATA 00,00,00,00,00,9B,A8,00,0 
0,00,00,00,00,98,A8,00,00,00,00,00, 
0286 
2980 DATA 00,98B,A8,00,00,00,00,00,0 
0,98,A8,00,00,00,00,00,00,98,AB,00, 
0309 


. 2990 DATA 00,00,00,00,00,98,A8,00,0 


0,00,00,00,00,98,A8,00,00,00,00,00, 
0286 
3000 DATA 00,98B,A8,00,00,00,00,00,0 
0,98,A8,00,00,00,00,00,00,98B,AB,00, 
0309 
3010 DATA 00,00,CF,CF,CF,98B,A8,00,0 
0,00,CF,CF,CF,98,A8,00,00,00,33, 33, 
07C6 
3020 DATA 33,33,A8,00,00,00,33,33,3 
3,33,A8,00,00,00,FC,FC,FC,FC,AB,00, 
071A 
3030 DATA 00,00,FC,FC,FC,FC,00,00,0 
0,00,00,00,00,0C,08,00,00,00,00,00, 
0404 
3040 DATA 0C,0C,0C,08,00,00,00,00,0 
G,0C,0C,08,00,00,00,04,0C,0C,0C,0C, 
0086 
3050 DATA 00,00,00,0C,0C,0C,0C,0C,0 
5,00,00,0C,0G,06,0C,0C,08,00,04,0C, 
0098 
3060 DATA 0C,0C,0C,0C,0C,00,04,0C,0 
C,0C,0C,0C,0C,00,04,0C,0C,06,0C,0C, 
00CB 
3070 DATA 0C,00,0C,0C,00,0C,0C,0C,0 
C,08,06,0C,06G,0C,0G,0C,0G,08,0C,0C, 
Done. 
3080 DATA 0C,0C,0C,0C,0C,08,0C,0C,0 
C,0C,0G,0C,06,0#,00,06,0C,06,06,006, 
00E8 
3090 DATA 0C,08,0C,0E,0C,0C,0C,0C,0 
C,08,0C,0E,0C,0C,0C,0C,0C,08,0C,0E, 
O00EA 
3100 DATA 0C,0C,0C,0C,0C,08,0C,0F,0 
C,0C,0G,0C,0C,08,0C,0D,0C,0C,0C,0C, 
O00EC 
3110 DATA 0C,08,0C,0D,0C,0C,0C,0C,0 
C,08,0C,00,06,0C,0C,0CG,0C,08,0C,0D, 
00E7 
3120 DATA OE,0C,0C,0C,0C,08,04,0C,0 


E,0C,0C,0C,0C,00,04,0C,0F,0C,06,0C,3® 
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0007 
3130 DATA 0C,00,04,0C,0C,0C,0C,0C,0 
C,00,00,0C,0C,0C,0C,0C,08,00,00,0C, 
00AB 
3140 DATA 0C,0C,0C,0C,08,00,00,04,0 
G,0C,0C,0C,00,00,00,00,0C,0C,0C,08, 
0098 
3150 DATA 00,00,00,00,0C,0C,0C,08,0 
0,00,00,00,00,0C,08,00,00,00,AF,F5, 
O1EA 
3160 DATA OE,00,CD,34,BD,F1,3C,FE,0 
E,20,F4,C9,CD,DE,90,21,0E,91,AF,ES, 
0A71 
3170 DATA FS,4E,CD,34,BD,F1,E1,30,2 
3,FE,0E,20,F2,06,5F,C5,CD,19,BD,C1, 
DADE 
3180 DATA 10,F9,CD,DE,90,C9,00,01,0 
0,01,00,01,00,38,10,10,10,00,0A,08, 
048A 
3190 DATA CD,DE,90,21,41,91,06,02,c 
5,AF,ES,F5,4E,CD,34,80,F1,E1,30,23, 
DACI 
3200 DATA FE,OE,20,F2,06,32,C5,CD, 1 
9,8D,C1,10,F9,C1,10,E4,C9,00,09,00, 
090F 
3210 DATA 09,00,09,00,38,10,10,10,0 
0, 10,09, 10,00, 10,00, 10,00, 1F,00, 10, 
00F2 
3220 DATA 10,10,00,10,09,CD,DE,90,2 
1,82,91,AF,ES,F5,4E,CD,34,8D,F1,E1, 
DA3F 
3230 DATA 3C0,23,FE,0E,20,F2,4E,3E,F 
F,B9,C8,E5,AF,C5,CD,34,8D,F1,16,02, 
DAAY 
3240 DATA 82,4F,3E,02,C5,CD,34,BD,F 
1,16,04,92,4F,3E,02,CD,34,8D,E1,23, 
0882 
3250 DATA ES,4E,3E,0C,CD,34,BD,3E,0 
D,0E,09,CD,34,80,E1,23,E5,46,C5,CD, 
091C 
3260 DATA 19,8D0,C1,10,F9,E1,23,03,7 
2,91,00,00,00,00,00,00,00,38, 10,10, 
05C2 
3270 DATA 10,00,07,09,EF,07,0A,BE,O 
7,0A,B3,07,0A,9F,1C,28,EF,07,0A,BE, 
0554 
3280 DATA 07,0A,B3,07,0A,9F,1C,28,E 
F,07,0A,BE,07,0A,83,07,0A,9F,0E, 14, 
050C 
3290 DATA BE,OE,14,EF,OE,14,BE,0E, 1 
4,05, 1C,28,BE,07,0A,BE,07,0A,D5,07, 
0664 
3300 DATA DA,EF, 15, 1E,EF,07,0A,BE,0 
E,14,9F,07,0A,9F,07,0A,9F,07,0A,B3, 
DSCF 
3310 DATA 1C,28,8E,07,0A,8E,07,0A,9 
F,15,1E,BE,07,0A,EF,OE, 14,05,0£,14, 
052B 
3320 DATA EF,23,32,FF,64,01,00,00,C 
D,38,8C,CD,00,80,CD,2A,96,21,64,00, 


07C8 


3330 DATA 22,75,99,3E,0F,CD,90,BB,2 
1,15,0F,CD,75,8B,21,09,95,CD,DE,95, 
D9AG 
3340 DATA 21,51,00,11,C4,01,CD,C0,B 
B,3E,05,CD,DE,BB,3E,01,C0,59,BC,21, 
087B 
3350 DATA D9,95,06,04,CD, 1B,95,CD,2 
7,95,CD,5D,91,CD,A1,94,CD,EC,90,3£, 
DAC2 
3360 DATA 3C,CD, 1E,BB,28,F9,CD,03,B 
B,CD,C6,94,AF,32,82,99,2A,75,99, 28, 
DA1A 
3370 DATA 22,75,99,7C,87,20,05,7D,B 
7,CA,C6,96,CD,27,95,CD,ED,88,CD,DD, 
0BAD 
3380 DATA 94,AF,32,80,99,06,C8,C5,C 
0,E7,95,CD,F5,95,CD,03,96,C1,10,F3, 
OBER 
3390 DATA CD,A1,94,3E,C8,32,81,99,3 
©, 3C,CD, 1E,88,28,0D,3A,80,99,87,20, 
0803 
3400 DATA 07,3E,FF,32,80,99,18,05,C 
D,F5,95,CD,03,96,3A,81,99,3D, 32,81, 
0970 
3410 DATA 99,87,20,DC,CD,C6,94,CD,D 
E,90,34,70,99,21,7E,99,BE,20,0B,3A, 
DAS9 
2420 DATA 7F,99,BE,20,05,CD,4A,93, 1 
8,2E,3A,70,99,FE,06,20,05,3E,01,32, 
0605 
3430 DATA 82,99,3A,7E,99,FE,06,20,0 
4,21,82,99,34,3A,7F,99,FE,06,20,04, 
077E 
3440 DATA 21,82,99,34,3A,82,99,B7,2 
0,06,00,1C,91,C3,69,92,CD,EC,90,CD, 
O9FO 


F, 16,00. 2105893009 408,98,34,82,99,5 
0857B 
3460 DATA 95,21,17,0E,CD,75,BB,CD,6 
0,BB,FE,20,C2,90,98,C3,69,92,3A,7D, 
DA49 


3470 DATA 99,B7,28, 18,FE,01,28,18,F 
E,02,28,18,FE,03,28,18,FE,04,28, 10, 
0696 

3450 DATA FE,05,28,14,3E,03,18,16,3 
E,0A,18,12,3E,08,18,0E,3E,07,18,0A, 
02F3 

3490 DATA 3E,06,18,06,3E,04,18,02,3 
E,05,32,82,99,C9,3E,05,CD,DE,BB, 11, 
0501 

3500 DATA 88,01,21,5F,01,CD,6B,94,3 
E,OF,CD,DE,88,11,84,01,21,5D,01,CD, 
076B 

3510 DATA 68,94,3E,3E,CD, 1E,BB,CO,3 
E,34,CD,1E,BB,28,F3,CD,C6,94,3E,05, 
097E 

3520 DATA CD,90,BB,3E,0F,CD,DE,BB,2 
1,05,0F,CD,75,88,21,50,01,11,44,02, 
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07D3 
3530 DATA CD,C0,B8B,3E,01,C0,59,BC,2 
1,04,99,06,08,CD,DE,95,C5,E5,21,F0, 
DA30 
3540 DATA FF,11,80,FF,CD,C3,BB,E1,E 
5,2B,2B,2B,28,06,04,CD,1B,95,E1,C1, 
DA7S 
3550 DATA 23,E5,C5,CD,78,BB,2C,25,2 
3,25,25,C0,75,88,C1,E1,10,D3,AF,CD, 
DABB 
3560 DATA 59,BC,21,78,C1,3E,08,F5,E 
5,C0,57,94,C0,19,80,CD,19,8BD,3E,2F, 
DIFA 
3570 DATA CD, 1E,88,20,10,E1,E5,CD,5 
7,94,E1,11,50,00,19,F1,3D,20,E0, 18, 
D8FS 
3580 DATA D9,E1,F1,FE,08,28,20,FE,0 
6,28,12,FE,04,28,0E,FE,02,28,03,AF, 
0849 
3590 DATA 18,03,3A,82,99,87,32,82,9 
9,06,32,C5,CD,19,80,C1,10,F9,C9, 3A, 
0881 
3600 DATA 82,99,47,87,80,18,EB,06,0 
8,C5,ES,06, 10,7E,2F,77,23,10,FA,E1, 
D86C 
3610 DATA CD, 26,8C,C1,10,EF,C9,CD,C 
0,BB,3E,01,CD,59,8C,21,2C,99,06,07, 
0994 
3620 DATA CD, 18,95,21,E0,FF,11,70,F 
F,CD,C3,88B,21,34,99,06,02,CD, 18,95, 
D9BB 
3630 DATA 21,EO,FF,11,80,FF,CD,C3,B 
8,21,37,99,06,06,CD,18,95,AF,C3,S9, 
DA20 
3640 DATA BC,3E,01,CD,59,BC,3E,05,C 
D,DE,88,11,A0O,01,21,55,01,CD,E3,94, 
DBF3 
3650 DATA 3E,OF,CD,DE,BB, 11,9C,01,2 
1,53,01,CD,E3,94,AF,C3,59,BC,21,01, 
0803 
3660 DATA 0C,11,12,13,AF,C3,44,BC,2 
1,3D,99,AF,F5,E5,4E,CD,34,BD,E1,F1, 
DA12 
3670 DATA 23,3C,FE,0E,20,F2,C9,CD,C 
0,BB,21,FF,98,06,05,CD, 18B,95,21,E8, 
0907 
3680 DATA FF,11,AO,FF,CD,C3,BB,3E,5 
3,CD,FC,88,11,D0,FF,21,E8,FF,CD,C3, 
0D87 
3690 DATA BB,21,F8,98,06,02,CD, 1B,9 
5,21,E8,FF,11,90,FF,CD,C3,BB,21,FA, 
DAFF 
3700 DATA 98,06,05,E5,C5,7E,CD,FC,B 
B,C1,E1,23,10,F5,C9,3E,05,CD,90,BB, 
083D 
3710 DATA CD,6C,95,21,17,0C,CD,75,B 
B,3E,0OF,CD,DE,88,3E,01,CD0,59,8C,21, 
0904 
3720 DATA 6D,99,06,08,E5,C5,CD,78,B 


0803 


3730 DATA 10,EE,11,84,01,21,30,00,C 
D,C0,88,3E,05,C0,DE,88,21,6D,99,06, 
0803 
3740 DATA 08,C3, 18,95,21,17,0D,CD,7 
3, BB, 3E,0A,CD,90,88,21,00,95,CD,DE, 
D9AE 

3750 DATA 95,11,84,01,21,30,00,CD,C 
0,BB,AF,CD,DE,88,11,2C,01,21,00,00, 
0738 

3760 DATA CD,F9,BB,2A,75,99,7D,FE,O 
A, 30,0D,21,17,0F,CD,75,88,3E,30,CD, 
DBFA 

3770 DATA SA,BB, 18,06,21,17,0F,CD,7 
5,B8,24,75,99,22,75,99,DF,48,99,CD, 
DB6F 

3780 DATA 78,BB,25,CD,75,BB,CD,60,B 
B,F5,3E,2E,CD,5A,88,F1,CD,5A,BB,3E, 
0891 

3790 DATA 30,C3,5A,BB,24,20,20,20,2 
0,20,20,20,00,43,41,53,48,00,7E,87, 
0560 

3800 DATA C8,CD,5A,BB, 23, 18,F7,CD,9 
F,96,21,A7,F8,ED,58,77,99,CD, 11,96, 
DB6A 

3810 DATA C9,CD,A9,96,21,B1,F8,ED,5 
B,79,99,CD,11,96,C9,CD,B3,96,21,BB, 
0C28 

3820 DATA F8,ED,5B,78,99,CD,11,96,C 
9,06,11,C5,06,06,1A,77,23,13,10,FA, 
OBAA 

3830 DATA D5,11,06,00,ED,52,CD,26,8 
C,D1,C1,10,EA,C9,CD,BD,96,21,A7,FB, 
OBOF 

3840 DATA ED,5B,77,99,CD,11,96,21,B 
1,F8,ED,58,79,99,CD,11,96,21,BB,FB, 
0838 

3850 DATA ED,5B,78B,99,CD,11,96,C3,B 
0,96,21,83,99,CD,90,8D,21,83,99, 11, 
DA98 

3860 DATA 68,99,CD,61,BD,21,83,99,C 
D,46,50,70,87,28,20,30,28,24,3D,28, 
0870 

3870 DATA 1B,30,28,12,30,28,09,3D,2 
8,23,21,38,83,3E,05,C9,21,05,82,3E, 
0529 

3880 DATA 04,C9,21,6F,82,3E,03,C9,2 
1,09,82,3E,02,C9,21,A3,81,3E,01,C9, 
D6EB 

3890 DATA 21,30,81,AF,C9,21,A1,83,3 
E,06,C9,C0,4E,96,22,77,99,32,70,99, 
0804 

3900 DATA C9,CD,4E,96,22,79,99,32,7 
E,99,C9,CD,4E,96,22,78,99,32,7F,99, 
09F1 

3910 DATA C9,CD,9F,96,CD,A9,96,C3,B 
3,96,AF,CD,OE,BC,CD,34,97,CD,FE,96, 
0022 

3920 DATA 21,01,07,CD,75,BB,21,1D,9 


7,C0,14,97,CD,FE,96,21,19,03,CD,75, 39 
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B,24,C0,75,8B,CD,60,88B,C1,E1,77,23, 
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0853 


3930 DATA BB,21,24,97,CD,14,97,FB,3 
E,2E,CD, 1E,BB,C2,00,00,3E,20,CD, 1E, 
0834 
3940 DATA BB,28,F1,C3,25,92,06,03,C 
5,CD,1C,91,06,00,21,00,00, 11,17, 13, 
DSF8 
3950 DATA AF,CD,40,BC,C1,10,ED,C9,7 
E,87,C8,CD,5A,8B,23,18,F7,4C,65,69, 
0837 
3960 DATA 64,65,72,00,4E,6F,63,68,6 
D,61,6C,20,28,6A,2F,6E,29,20,3F,00, 
0504 
3970 DATA F3,21,00,C0,22,48,98,21,4 
D,98,CD,E8,97,23,AF,BE,C2,3E,97,21, 
0973 
3980 DATA 08,C0,22,48,98,21,55,98,C 
D,E8,97,23,AF,BE,C2,50,97,21,10,C0, 
0951 
3990 DATA 22,4B,98,21,50,98,CD,E8,9 
7,23,AF,BE,C2,62,97,21,18,C0,22,48, 
0918 
4000 DATA 98,21,65,98,CD,E8,97,23,A 
F,BE,C2,74,97,21,20,C0,22,48,98,21, 
0986 
4010 DATA 6D,98,CD,E8,97,23,AF,BE,C 
2,86,97,21,28,C0,22,48,98,21,5D,98, 
09E4A 
4020 DATA CD,E8,97,23,AF,BE,C2,98,9 
7,21,30,C0,22,48,98,21,55,98,CD,E8, 
DAA6 
4030 DATA 97,23,AF,BE,C2,AA,97,21,3 
8,C0,22,48,98,21,75,98,CD,E8,97,23, 
09ES 
4040 DATA AF,BE,C2,BC,97,21,48,C0,2 
2,48,98,21,7D,98,06,07,C5,CD,E8,97, 
DAO4 
4050 DATA 23,C1,10,F8,C9,30,02,18,0 
6,FS,AF,12,13,F1,C9,F5,3E,F1,18,F?, 
0988 
4060 DATA 11,43,98,7E,07,CD,D9,97,0 
7,CD,09,97,07,C0,09,97,07,CD,D9,97, 
DA7A 
4070 DATA 07,CD,D9,97,07,CD,D9,97,0 
7,CD,D9,97,07,CD,D9,97,E5,06,08,C5, 
DACB 
4080 DATA 21,43,98,ED,5B,4B,98,01,0 
8,00,ED,B0,2A,48,98,7C,C6,08,67,E6, 
0871 
4090 DATA 38,20, 14,7C,D6,40,67,7D,C 
6,50,6F,30,0A,24,7C,E6,07,20,04,70, 
D6CE 
4100 DATA D6,08,67,22,48,98,C1,10,C 
E,E1,C9,72,E6,F9,11,01,C9,00,08,00, 
DBCA 
A110 DATA B1,66,66,66,66,66,3C,18,0 
0,FE,62,68,78,68,62,FE,00,FC,66,66, 
0803 
4120 DATA 7C,6C,66,E2,00,F0,60,60,6 
0,62,66,FE,00,38,6C,C6,C6,C6,6C,38, 


O9AO 


4130 DATA 00,C6,E6,F6,DE,CE,C6,C6,0 
0,E0,E0,E0,E0,E0,00,E0,3C,66, 60,30, 
0C58 
4140 DATA 06,66,3C,00,7E, 18,18, 18, 1 
8,18,7E,00,3C,66,C0,C0,CE,C6,7E,00, 
0650 
4150 DATA AF,CD,OE,BC,CD,A9,98,CD,F 
E,96,C3,0C,96,F3,21,10,C0,22,4B,98, 
0803 
A160 DATA 21,84,98,C0,E8,97,23,AF,B 
E,C2,B3,98,21,18,C0,22,48,98,21,8C, 
0901 
„170 DATA 98,CD,E8,97,23,AF,BE,C2,C 
9,98,21,20,C00,22,48,98,21,55,98,CD, 
DA74 
4180 DATA E8,97,23,AF,BE,C2,D7,98,2 
1,28,C0,22,48,98,21,94,98,CD,E8,97, 
DAE? 
4190 DATA 23,AF,BE,C2,E9,98,21,38,C 
0,03,C8,97,74,6F,53,74,61,72,74,50, 
DA4F 
4200 DATA 72,65,73,73,54,52,45,42,0 
0,4C,4F,53,45,00,45,56,45,4E,00,4C, 
0597 
#210 DATA 4F,53,45,00,45,56,45,4E,0 
0,4C,4F,53,45,00,44,4F,55,42,00,4C, 
DABE 
4220 DATA 4F,53,45,00,43,6F,60,6C0,6 
5,63,74,00,6F,72,00,47,61,6D,62,66, 
0671 
4230 DATA 65,00,01,05,01,10,01,1F,3 
8,10,10,10,60,00,0A,79,EE,FC,28,43, 
043C 
4240 DATA 29,20,31,39,38,36,20,62,7 
9,20,40,61,72,68,75,73,20,41,64,61, 
0505 
4250 DATA 60,73,6B,69,00,00,00,40,8 
3,E2,01,BF,23,08,00,00,E1,2C,FF,73, 
06C6 
4260 DATA 28,0B,00,00,F0,28,0B,00,0 
0,E9,29,2C,10,29,38B,01,00,00,00,00, 
0309 
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DAS SCHWARZE AUGE 


„So, jetzt weißt Du alles‘‘, spricht die alte Frau mek- 
kernd zu Dir. „Du weißt, warum Du das Dokument 
finden mußt.‘ Doch du weißt gar nichts. Du weißt 
nicht, warum Du hier bist, noch nicht einmal wie Du 
hergekommen bist. Du hast überhaupt keine Ahnung, 
warum das Dokument so wichtig ist, aber Du spürst, 
daß Du gar keine andere Wahl hast, als dieses ver- 
fluchte Pergament zu suchen. 
Irgend etwas zwingt Dich, der alten Frau immer in 
die Augen zu sehen, häßlich grün-gelbe Augen, die 
mehr verschweigen, als sie sagen. ‚‚Doch hüte Dich“, 
sagt die Alte, „hüte Dich vor den Gefahren. Wenn 
es so einfach wäre, das gesuchte Papier zu finden, wä- 
re ich längst schon selbst hochgegangen und hätte es 
mir geholt. Doch dies erfordert einen kleinen Helden, 
um diese Aufgabe zu lösen.‘““ 
Geringschätzig sieht sie Dich an. ‚Ich frage mich nur, 
ob Du nicht doch etwas zu klein für diese Aufgabe 
bist.“ Damit hat sie Deinen Stolz verletzt. Du rich- 
test den Kopf auf und verlangst von ihr, zur Treppe 
Bern. zu werden, die Dich in Dein Abenteuer führt. 
in Abenteuer, in dem Du Dich erst beweisen mußt, 
eine neue Welt, die manch einem, der kräftiger und 
klüger war als Du, das Leben gekostet hat... 


DAS PROGRAMM: 
EIN MAMMUTLISTING, ABER ES LOHNT SICH 


Eine neue Welt, das ist auch dieses Abenteuerspiel 
von Ralf Jürgen Kraft. Statt stundenlang nach der 
richtigen Vokabel zu suchen, bleibt diese Geschichte 
immer fließend und attraktiv. Es ist, als würden Sie 
ein Buch lesen, in das Sie eingreifen können. Die 
Idee zu diesem Spiel wurde bei der Einführung der 
Fantasie-Rollenspiele geboren. „Dungeons & Dragons“, 
welches Pate stand für die Entwicklung dieses Ad- 
ventures, war eine völlig neue Erfahrung, hatte je- 
doch leider den Nachteil, daß es nur mit mehreren 
Personen gespielt werden konnte. 

Hier hilft dieses Programm. Es ermöglicht ein Spiel 
auch alleine und, was vielleicht noch wertvoller ist, 
es führt prächtig in die Regeln dieser Spielgattung 
ein. Das ‚Schwarze Auge“ erspart dem Spieler das 
mitunter lästige Zeichnen eines Plans. Dieser wird 
nämlich fortwährend mitgezeichnet und der oft end- 
los währende Kampf gegen eine Bande Orks oder 
eine Horde Ratten wird vollständig vom Computer 
simuliert, getreu dem „Buch der Regeln“. 


DIE WICHTIGSTEN KAMPFREGELN 


Hier die wichtigsten Regeln für einen Kampf: Jeder 
Kämpfer hat einen Attacke- und Paradewert. Soll eine 
Attacke gelingen, muß die Zahl des 20seitigen Würfels 
unter dem Attackewert bleiben. Ist die Attacke miß- 
lungen, darf der Gegner angreifen. Bei einer gelunge- 
nen Attacke hat der Gegner die Möglichkeit der Para- 
de, soll diese gelingen, muß auch hier der Wert des 
Würfels unter dem Paradewert bleiben. Mißlingt die 
Parade, so hat der Angreifer die Möglichkeit, einen 
Schlag anzubringen. Die Stärke des Hiebes wird unter 
anderem durch seine Waffe bestimmt. So hat eine der 
zweihändigen Streitäxte den Wert 2W-+2, das bedeu- 
tet, daß die Punkte von zwei Würfen mit dem sechs- 
seitigen Würfel zusammengezählt werden und dazu 2 » 
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e stehen auf dem 2x1 
ter großen Trepren- 
satz. Drei uren 
hren zu den Räumen. 
e konnen versuchen, 
e zu offnen. hHeiche 
re möchten Sie 

ffnen 


NET pe 47) 
I 


I) 


-4—-y—- oder wollen Sie 
aas Haus ver-— 
lassen 


Ihre Anweisung ? 


Offenbar handelt_es 
sich bei ıesem Raum 
um das Schlafzimmer. 
Denn an einer Wand E 
steht ein Bett und ein 
Schrank. 


-1-u- Bett wmntersuchen 

-2-s- ıin den Schrank 
schauen 

-3-u- Zimmer verlassen 

-i4-b- aus dem Fenster 


-5-e- den Tısch ge- 
nauer erkunden 


Dokument der Stärke 


Kriegerin 
Tfar Flar 


Klugheit:13 
Charıiısma:14 Mut :12 
Geschick: 12 Kraft:10 


Prüfung der 
Geschicklichkeit 
Schwierigkeit: 3 


Damit die Prüfung 
gelinst darf 

er Mürfel des 
Schicksals nicht 
mehr als 9__ 
anzeigen. Ein_ 
Attacke:13 TP:iWM+2 Fehlversuch nimmt 
Parade :1ı11 9 Lehbenspunkte, 


Der Mürfel des Schicksals 


" 


Du hast die Probe_nicht bestanden, 
aadurch werliercst Du GB Lebenspunkte. 


nn anni eEeneeeeeEe 


addiert werden. Von diesem Wert wird nun der Rü- 
stungsschutz des Gegners abgezogen. Die Punkte, die 
sich daraus ergeben, werden dem Gegner von seiner 
Lebensenergie abgezogen. Sinkt diese unter Null, hat 
man den Gegner besiegt. 

Vielleicht sind diese Regeln im ersten Moment nicht 
ganz einsichtig, aber nach dem ersten Kampf weiß 
man genau, wie es funktioniert. 

Noch ein Hinweis zum Abtippen: Geben Sie die 
Sonderzeichen genauso ein wie sie im Text stehen. 
Es handelt sich nicht(!) um eine fehlerhafte Druk- 
kerausgabe. Nach dem ersten Programmstart werden 
die Symbole mit den deutschen Umlauten belegt. 
... und obwohl schon so viele mutigen Recken vor 
Dir dieses Abenteuer nicht bestanden haben und 
entweder dem ewigen Wahnsinn anheim gefallen 
sind oder für immer verschwunden blieben, wagst 
Du es und läßt sich von der alten Frau zum Trep- 
penhaus führen, von wo aus Dein Abenteuer begin- 
nen wird. ““ Viel Spaß dabei wünscht die Schneider 
aktiv-Redaktion. 
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LISTING 


1. RRRRRRRRRISHHIRISHIEIEIHISIETESESEHSEE NEN 
2% DAS SCHWARZE AUGE * 
3 '# VON * 
a '%* RALF JUERGEN KRAFT * 
5 # FUER * 
6 ’* SCHNEIDER AKTIV * 
7. 8 CPC 464/664/6128 je* 
8 -ARRRRRRRRRRHISIEIRRRHHOHRRRIIHTINEN 


1000 GOSUB 3760:MODE 1:BORDER O:INK 
0,0:INK 1,2:INK 2,24:INK 3,6 
1010 name$="Tfark Flar”:typ$="Krieg 
erin":klug=13:char=14:gesch=12:mut= 
12:kraft=10:leben=30:abpu=0:att=13: 
par=11:tp$="1W+2":rs=2 
1040 GOSUB 2920 
1050 WINDOW #1,1,22,1,25:PAPER #1,0 
:CLS 41 
1060 PEN #1,2 
1070 PRINT #1,"Sie stehen am Fu” de 
r Treppe. Den Kn@ppel inder einen, 
die {llampein der anderen Hand. Si 
e k})nnen "” 
1080 PRINT #1:PRINT #1,"-1-u- das T 
reppenhaus":PRINT #1,” genauer 
unter-":PRINT #1," suchen" :PR 
INT #1,”-2-h- die Treppe vo 
r-":PRINT 41,” sichtig hinauf- 
gehen." 
1090 PRINT #1,"-3-a- Jede Stufe vor 
dem Betreten abklo 
pfen”:PRINT #1,"-4A-v- das Haus wied 
er verlassen"”:tast$=" 
uhav1234”:G0OSUB 4500:0N t GOTO 1230 
‚1140, 1280,2510 
1100 flague=1:* Kampf gegen den B’r 
en 
1110 RESTORE 1120:anz.geg-=-1:FOR i=-O0 
TO 4:READ g$:ge$( 1,i)=g$:NEXT i:FO 
AR i=0 TO 5:READ g:ge(1,i)=g:NEXT i 
1120 DATA "B’r",Wurchera, "u‘erst, st 
ark und z’h,2W+0, 15,50,25,8,7,0 
1130 GOSUB 3440:IF leben<1 THEN GOT 
0 2180 ELSE GOTO 1150 
1140 PRINT #1,"Sie haben einen haar 
- feinen Draht zerrissender @ber de 
r obersten Treppenstufe gespannt wa 
».":GOSUB 2710:G0T0 1180 
1150 PRINT #1,"Sie k}nnen jetzt in 
Ruhe das Postament untersuchen 
‚ auf dem der B’r stand. Schon ba 
ld stellen Sie fest,da* sic 
h die Deck- platte hochklappen 
1”*t. Darunter liegt das gesucht 
e Pergament” 
1160 PRINT #1:PRINT #1,"Herzlichen 
Gl@ckwunsch" 
1170 GOTO 1170 
1180 PRINT #1,"Sobald Sie den 
Treppenabsatz betretenklappt eine 
Fallt®er auf, und Sie st@rzen dr 


ei Meter tief." :PRINT # 

1,"Der Sturz tr’gt Ihnen eine Verst 

auchung des Kn}chels zu und k 

ostet Sie” 

1190 ORIGIN 168,216, 168, 198,246,216 

:60SUB 3240:L0CATE #1,1,14:PEN #1,1 

:PRINT #1:leben=leben-a:PRINT #1,"( 

Lebensenergie:"leben”)":PE 

N #1,2 

1200 LOCATE #1,1,14:IF a<2 THEN PRI 

NT #1,a;"Lebenspunkt.” ELSE PRINT # 

1,3; "Lebenspunkte."” 

1210 PRINT #1:PRINT #1,"Sie k}nnen 

nun die Treppe wieder hinauf- st 

eigen."”:GOSUB 2710:G0T0 1350 

1220 flague=0:G0T0 1110 

1230 PRINT #1,"Sie stellen fest, da 

“ eine Handbreit @ber der oberste 

n Treppen- stufe ein d@nner Drahtge 

spannt ist. DOffenbarder Aus 

l}ser einer Falle. Sie k}nnen:" 

1240 PRINT #1:PRINT #1,"-1-d- den D 

raht aus sicherem Abstand 
durchschlagen":PRINT #1:PRINT # 

1,”-2-h- vorsichtig @ber 


den Draht hin- wegsteige 


n 
1250 tast$="dh12":G05UB 4500:0N t G 

0OTO 1280, 1450 

1260 PRINT #1,"Der B’r wird pl}tzli 

chlebendig und greift Sie an.Sein 
Brummen hat sich zu einem ti 
efen Grollen ge- steiger 

t. Es kommt zumKampf !!1!1” 

1270 GOSUB 2710:G0T0 1100 

1280 PRINT #1,"S5ie h}ren ein leises 

Knacken, so als ob einverborgener 

Mechanis- mus ausgel}st wurde. Si 

e k}nnen:":PRINT #1:PRINT # 


1,”"-1-b- vorsichtig den Trep 
penabsatz betreten” 

1290 PRINT #1,”"-2-a- mit dem Kn@ppe 
1 den Boden ab- klopf 


en":PRINT #1,"-3-s- mit einem Satz 
@®ber den ersten 
Bereich des Ab- satzes spri 
ngen"” :tast$="bas123"”:G05UB 4500:0N 
t GOTO 1180, 1320, 2530 
1300 PRINT #1,"65ie haben den Sockel 
kaum ber@hrt, schon h}ren Sie e 
in tiefes Brummen.Sie k}nnen:":PRI 
NT #1:PRINT #1,"”-1-w- unver 
drossen weitersuchen” 
1310 PRINT #1,"-2-v- das Zimmer 
wieder ver- lasse 
n":tast$="wv12”:GOSUB 4500:0N t GOT 
0 1260,2470 
1320 PRINT #1,"Im Boden des Treppen 
absatzes ist eine Fall- t@re verbor 
gen, die sich pl}tzlich }ffnet.H” 
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tten Sie ihn be- re@hrt, 
w"ren Sie abge-st@rzt."”:GOSUB 2710: 
G0OTO 1350 
1330 PRINT #1,"Die Suche ist erfolg 
- los. Sie rollen unz’h-lige Karten 
aus, aber eine interessante ist ni 
cht darunter. Nun bleibt 
nur noch der Sockel auf dem der B 
"rsteht. Sie k}nnen:" 
1340 PRINT #1:PRINT #1,"-1-b- vorsi 
chtig den Sockel be- 
tasten”:PRINT #1,"-2-v- das Zim 
wieder ver- 
lassen" :tast$="bv12”:GOSU 
B 4500:0N t GOTO 1300,2470 
1350 PRINT #1,"Wo der Treppenabsatz 
war, klafft jetzt ein gro’es Loch 
.Sie k}nnennicht zu den T@ren derei 
nzelnen Zimmer ge- langen. 
":PARINT #1:PRINT #1,"-1-f- die alte 
Frau um Hilfe fragen” 
1360 PRINT #1,"-2-s- mit einem Satz 
@ber den ersten Berei 
ch des Ab- satzes springen"”:t 
ast$="fs12”:G0SUB 4500:0N t 
GOTO 1420, 2530 
1370 IF flag.d<1 THEN flag.d=1:G605U 
B 2920 
1380 PRINT #1,”"Sie stehen jetzt in 
der Geheimkammer des Kapit"ns.Hi 
er bewahrt Graubart seine See- ka 
rten auf, mit denen eine La 
ndratte nicht viel anfangen kann.D 
asAuff’lligste ist ein riesiger au 
sgestopfterBraunb”r.”; 
1390 PRINT #1,"Das Tier steht auf 
einem niedrigen Sockelauf dem die 


mer 


Worte “Reiz mich nicht’ ge 
kritzelt sind. Sie k}n 
nen:"” 


1400 PRINT #1:PRINT #1,"”-1-s- dem T 

ier in die Seite sto*en”:PRIN 

T #1,"”-2-d- das Zimmer d 

urchsuchen" :PRINT #1,"”-3-v- 

das Zimmer ver- lassen" 

1410 tast$="sdv123”:605UB 4500:0N t 
GOTO 1260, 1330, 2470 

1420 PRINT #1,"Die Alte sieht Sie 
mi“billigend an und sagt ’Jeman 

d wie Ihr sollte die Zimmer gar ni 

cht betreten’. Trotzde 

m hilft sie Ihnen und schlie’t d 

ieFallt@re.Ob sie aller-dings noch 

einmal hilft, ist mehr als un 

gewiss." 

1430 GOSUB 2710:zahlaltefrau=zahlal 

tefrau+1:GOTO 1450 

1440 PRINT #1,"Kaum haben Sie den m 

a-gischen Spruch gesagt,da klappt d 

ie Holz- t"felung in der Mitte au 


seinander, und ein Durchga 
ng in den Nach-barraum wird frei.$i 
e gehen durch die {ff- nung und 
.":GOSUB 2710:G0T0 1370 
1450 PRINT #1,"Sie stehen auf dem 2 
xiMeter gro’en Treppen- absatz. Dre 
i T@ren f@hren zu den R’umen. Si 
e k}nnen versuchen, sie zu 
}ffnen. Welche T@re m}chten Sie 
}ffnen 7?” 
1460 PRINT #1:PRINT #1,"-1-n- Nordt 
@ere”:PRINT #1,"-2-o- Ostt@re":PRINT 
#1," -3-s- S@dt@re":PRINT #1,”-4-v- 
oder wollen Sie das 
Haus ver- lassen" :tast$="no 
sv1234”:G0SUB 4500:0N t GOTO 2370, 1 
730, 1500,2510 
1470 PRINT #1,”"Um die Geheimt@re zu 
}ffnen mu” man den richtigen 5 
pruch wis- sen. Sie kennen ihn ? Da 
nn geben Sie ihn ein 
1480 LINE INPUT #1,t$:t$=LOWER$(t$) 
1490 CLS#1:IF t$="foramen foraminor 
" THEN GOTO 1440 ELSE 2470 
1500 PRINT #1,"Die Te@r ist massiv 
und mit Eisenbeschl”- gen verst”r 
kt. Sie istverschlossen,es stecktke 
in Schl@ssel im Schlo°. 
Es ist unm}g- lich diese T@re mit 
Gewalt zu }ffnen. Sie k}nnen 
." 


1510 PRINT #1:PRINT #1,"-1-n- die N 
ordt@re }ffnen"”:PRINT #1,” 
-2-o- die Ostt@re Iffnen" 
:PRINT #1,"-3-f- die alte F 
rau nach dem Schl@s- s 
el fragen" 
1520 IF flagschluessel=1 THEN PRINT 
#1,”-4-s- mit dem Schl@s- se 
1 die T@re Iffnen"”:tast$=" 
nofs1234”:ELSE tast$="nof12 
3”: 
1530 GOSUB 4500:0N 
‚1580, 2010 
1540 PRINT #1,"Der 
e-gende D’mon 1}st sich in gr@nen D 
unst auf, der zum Rahmen des Sp 
iegels zieht.Auf demSpiegel 
stehen die Worte: 
1550 PEN #1,1:PRINT #1:PRINT #1,"”Do 
rt wo mein Herr und Meister seine t 
“glicheRuhe fand, dort findetIhr de 
n Weg zu Eurem R’”tsel.Doch 
Ihr werdetk"’mpfen um es zu 1} 
sen .":PEN #1,2: 
1560 PRINT #1:PRINT #1,"”-1-v- Zimme 
r verlassen”; :PRINT #1,"-2-s- im Zi 
mmer suchen”; :IF flagflasche-0 THEN 
PRINT #1,"”-3-t- aus der go 
ldenen Flasche trinken"”:tast$= 


t GOTO 2370, 1730 


auf dem Boden li 
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"vst123” ELSE tast$="vs12"” 

1570 GOSUB 4500:0N t GOTO 1450, 1810 

‚1750 

1580 zahlaltefrau=zahlaltefrau+1:IF 
zahlaltefrau>1 THEN GOTO 1650 ELSE 
1690 

1590 PRINT #1,"Kaum haben Sie den 
Spiegel ber@hrt,da zerspringt das 
Glas und ein D’mon erscheint. In 
der Rechten tr’gt er eine 

Waffe, die derIhren "hnlich ist un 

d es scheint als glichendie Gesicht 

sz@ege den Ihren.” 

1600 PRINT #1:PRINT #1,"Ganz recht, 
ich bin Dein Ebenbild und ich we 

rde Dich t}ten !!":PRINT #1:PRINT # 

1,"Es kommt zum Kampf !" 

1610 flague=1:”° Kampf gegen den D’m 

on 

1620 anz.geg=1:ge$( 1,0) ="D"’mon":ge$ 

(1,1)="":FOR i=1 TO LENCname$) :ge$( 

1,1)=MID$(name$,i,1)+ge$( 1,1) :NEXT: 

ge$l 1,1) =UPPER$( ge$l 1,1)):g 

e$( 1,2)="Ebenbild":ge$( 1,3)="seines 
Gegners”:ge$( 1,4) =tp$ 

1630 ge( 1,0) =mut:ge( 1,1) =1leben:gef 1 

‚2)=leben:ge( 1,3) =att:ge( 1,4)=par:I 

F rs=2 THEN ge(1,5)=4 ELSE ge(1,5)=- 

2 

1640 GOSUB 2710:G0SUB 3440:IF leben 

>0 THEN GOTO 1540 ELSE GOTO 2180 

1650 PRINT #1,"Die alte Frau ist em 

- p}rt. ’Von Euch h’tte ich mehr er 

wartet’ schimpft sie. ’Bes”*e ic 

h den Schl@ssel,h’t-te ich 

ihn Euch selbstverst"ndlich gegeben 

'":G0SUB 2710:G0T0 1670 

1660 GOTO 1590 

1670 PRINT #1,” Geht fort von mir i 

ch will Euch nicht eher sehen, da 

Ihr das Do- kument gebracht habt ’f” 

hrt die Alte Sie an.Mi’muti 

g steigen Sie wieder die Treppe ho 

ch”:G0OSUB 2710:G0TO 1450 

1680 GOTO 1590 

1690 PRINT #1,"Die alte Frau hat we 

- nig Verst"ndnis fer Ihre Bitte. 
"We’te ichwo der Schl@ssel ist, h” 

tte ich ihn Euch ge-geben’" 

:GOSUB 2710:G0TO 1670 

1700 PRINT #1,"Der Schild ist meist 

erhaft gearbeitet und 1”*t Ihren 

R@estungs- schutz auf 4 steigen !": 

IF rs<4 THEN rs=4 

1710 PRINT #1:PRINT #1,”-1-p- Spieg 

el putzen" :PRINT #1,"-2-s- im Zimme 

r suchen"; :PRINT #1,"-3-v- Zimmer v 

erlassen"; :IF flagflasche=-0 

THEN PRINT #1,”-4-t- aus der golde 

nen Flasche trinken” :tast$="ps 


vt1234” ELSE tast$="psv123” 
1720 GOSUB 4500:IF t=1 THEN GOTO 16 
80 ELSE IF t=2 THEN GOTO 1810 ELSE 
IF t=3 THEN GOTO 1450 ELSE GOTO 218 
0 
1730 IF flag.b<1 THEN flag.b=1:605U 
B 2920 
1735 PRINT #1,"Diese T@re ist nicht 
verschlossen.Sie f@hrtin eine kle 
ine Kammer.In der Ostwand ist einrFe 
nster. Im Zimmer stehen 
ein Tisch, ein Stuhl und eine gro’e 
Kiste.” 
1740 PRINT #1,"Sie kK}nnen :":PAINT 
#1:PRINT #1,"-1-v- Zimmer verlassen 
";:PRINT #1,"-2-u- Kiste genauer 
untersuchen” :PRINT #1 
‚"-3-s- aus dem Fenster schau 
en":tast$="vus123”:G0SUB 4500:0N t 
GOTO 1450, 1780, 2550 
1750 flagflasche=1:PRINT #1,"Die Ph 
iole enth’lt ei-nen magischen Heil- 
trank. Sie trinken davon und 
alle Ihre Wunden, die Ihn 
en bis-her zugef@gt wurden, heilen 
sofort.”:IF leben<30 THEN leben=30 
1760 PEN#1,1:PRINT #1,”( Lebensener 
gie"leben"”) ":PEN#1,2:flagflasche=1: 
PRINT #1:PRINT #1,"”-1-a- Schild anl 
egen":PRINT #1,"-2-p- Spieg 
el putzen”:PRINT #1,"”-3-s- im Zimme 
r suchen”; :PRINT #1,"-4-v- Zimmer v 
erlassen” 
1770 tast$="apsv1234":605SUB 4500:0N 
t GOTO 1700, 1680, 1810, 1450 
1780 PRINT #1,"Der Deckel der See- 
mannskiste ist durch ein schwere 
s Schlo”“ gesichert. Sie k}nnen: " 
:PRINT #1:PRINT #1,"-1-a- d 
as Schlo* auf- schlagen" :PRIN 
T #1,”-2-v- Zimmer verlassen”; 
1790 PRINT #1,"-3-t- gegen die Kist 
e treten":IF flagschluessel=-1 
THEN PRINT #1,"-4-)- Schlo“ mit 
Schl@ssel }ffnen”: 
tast$=-"avt}1234” ELSE tast$=-"avt123 
L} 


1800 GOSUB 4500:0N t GOTO 1880, 1450 
‚2570,2020 

1810 PRINT #1,"Die Suche ist zun’”ch 
sterfolglos, doch dann entdecken 5 
ie in einer6chublade des Arbeits-ti 
sches einen Zettel, auf dem 
Graubart fol- genden Spruch notier 
te” 

1820 PEN#1,1:PRINT #1,"Eidideldumde 
i, trau keinem Papagei I Erst den 
Schild, dann den Spiegel,dann den 
Tranksonst lebst du nicht 

lang" :PENf1,2 
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1830 PRINT #1:PRINT #1,"”-1-p- Spieg 

el putzen” :PRINT #1,"-2-a- Schild a 

nlegen":PRINT #1,"-3-v- Zimmer verl 

assen"”; :PRINT #1,”-4-s- im 

Zimmer suchen”; :IF flagflasche=0 TH 

EN PRINT #1,”-5-t- aus der goldenen 
Flasche trinken” 

1840 IF flagflasche=0 THEN tast$="p 

avst12345” ELSE tast$="pavs1234” 

1850 GOSUB 4500:0N t GOTO 1680, 1700 

‚1450, 1860, 1750 

1860 PRINT #1,"Ihre hartn’ckige Suc 

hewird belohnt: In einemBuch, welch 


es Sie in dem Schrank finden, entde 
cken Sie folgenden Spruch: 
":PRINT #1 


1870 PEN #1,1:PRINT #1,” "Foramen Fo 
raminor’ }ffnet Dir jeglich T@run 
d Tor.":PEN #1,2:G0OSUB 2710:G60T0 18 
10 
1880 PRINT #1,”"Um das Schlo* aufzu- 
schlagen ben}tigt man eine geh}ri 
ge Portion Kraft und Geschick- li 
chkeit. Beweisen Sieda“ Sie 
diese besitzenMachen Sie die Probe 
n!”:GOSUB 2710 
1890 mileben=2:gp=-5:G605UB 2860: IF 
wflag=0 THEN GOTO 1900 ELSE kp-2:60 
SUB 2880:IF wflag=O THEN GOTO 1780 
ELSE GOTO 2000 
1900 PRINT #1,"5ie haben bei dem Ve 
r-such die Truhe zu }ff-nen, ihre W 
affe zer- brochen. Sie k})nnen:" 
1910 PRINT #1:PRINT #1,"-1-f- das A 
benteuer mit den blanken 
F’usten fort- setzen"”:P 
RINT #1,"-2-b- die alte Fra 
u um Hilfe bitten" 
1920 tast$="fb12”:605UB 4500:0N t G 
0TO 1930, 2250 
1930 PRINT #1,"Bitte beachten Sie, 
da* sie folgende, neueKampfwerte 
haben:":att=7:par=1:tp$="1W-2"”:PRIN 
T #1:PRINT #1,"Attacke="att 
:PRINT #1,"Parade ="par:PRINT #1,"T 
refferpunkte="tp$:G0OSUB 2710:G0T0 1 
450 
1940 IF flag.a<1i THEN flag.a=1:605U 
B 2920 
1945 PRINT #1,”"Sie stehen im Arbeit 
s-zimmer des Kapit"ns. An der Wand 
h’ngt ein schwarzer Schild mit ro 
tem Totenkopf.An deranderen 
Wand lehnt einmannsgro°er Spiegel. 
Au’<erdem f’l11t Ihnen ein goldene 
Flasche auf.”; 

1950 PRINT #1,"Pl}tzlich ruft der 
Spiegel ’Putz mich’, der Schild 
"Leg mich an’ und die Flasche 1 

rink mich’."”:PRINT #1,"Ein 


ausgestopfter Papagei kr’chzt: ’Hal 
tet den Mund’. Die anderenGegenst” 
nde sind nun ruhig, nur der Papage 
ispricht:” 

1960 GOSUB 2710:PRINT #1,"Also, Jun 
ge, du mu°t zuerst aus der Flasche 
trinken,dann den Spie-gel putzen un 
d dann den Schild anlegen 

. Merk Dir die Reihen- folge,sie 
ist wichtig.Und nun hurte Dich, 
zuviel Zeit wurde ver-schwendet"” 
1970 PRINT #1:PRINT #1,"Was machen 

Sie nun ?":PRINT #1:PRINT #1,"-1-p- 
Spiegel putzen"”:PRINT #1,"-2-a- Sc 

hild anlegen”:PRINT #1,"-3- 

s- im Zimmer suchen”; :PRINT #1,"-4- 
v- Zimmer verlassen”; 

1980 IF flagflasche=0O THEN PRINT #1 
‚"-5-t- aus der goldenen Flasc 

he trinken”:tast$="pasvt 12345" ELSE 
tast$="pasv1234” 

1990 GOSUB 4500:0N t GOTO 1680, 1700 
‚1810, 1450, 1750 

2000 PRINT #1,”"Das Schlo” springt a 

ufund Sie k}nnen den Truhendecke 
l aufklap- pen. In der Truhe se 

hen Sie: ":605UB 2710:60T0O 

2100 

2010 PRINT #1,"Der Schl@ssel pa*“t. 


Erl”*t sich leicht herumdrehen. Sie 
k}nnen dieT@r }ffnen und das Zi 

mmer betreten."”:GOSUB 2710: 

GOTO 1940 


2020 PRINT #1,”"Der Schl@ssel pa’t i 
n das Vorh’ngeschlo‘“. Sie drehen 
ihn herum und ...”:G0OSUB 2710:G60TO 
2000 

2030 PRINT #1,"Sie haben eine Horde 

Ratten aufgeschreckt. Sie werden 

von:"” 

2040 ORIGIN 160,296, 160, 190, 326,296 
:G0OSUB 3240 

2050 LOCATE#1,1,8:PAINT #1,"Ratten 

angegriffen. M}ge Ihnen Fortuna 
hold sein 1":G05UB 2710 

2060 FOR i=1 TO anz.geg:RESTORE 207 

D:FOR j=0 TO 4:READ g$:ge$li,j)-g$: 

NEXT j:FOR j=0 TO 5:READ g:geli,j)- 

g:NEXT 3J,i:FOR i=-1 TO anz.g 

eg:a=RAND*10+2:FOR j=1 TO a:ge$(i,1) 

=ge$( i, 1) +CHR$( AND#*25+65) :NEXT J,i 

2070 DATA Ratte, ,flink und,b}sartig 
‚1W-1,9,3,5,5,1,0 

2080 GOSUB 3440:IF leben<1 THEN GOT 

DO 2180 

2090 PRINT #1,"Gratuliere, Sie habe 
n alle Aatten get}tet. M}chten Sie 
nun:":PRINT #1:PRINT #1,"-1-v- Zim 

mer verlassen” :PRINT #1,"”-2 

-u- Bett genauer untersuch 
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n":tast$="vu12”:GOSUB 4500:0N t GO 
TO 1450,2430 
2100 PRINT #1,"Sie klappen die See- 
mannskiste auf, und esblinken Ihn 
en 100 Sil-bertaler und 15 Gold- du 
katen entgegen. Lei-der wir 
d dieser Schatzvon einem Klabauter- 
mann bewacht, der Sie hitzig atta 
ckiert.” 
2110 PRINT #1,"Sie werden nicht umh 
inkommen, mit diesem Wicht zu k” 
mpfen,doch seien Sie vorsichtig..": 
GOSUB 2710:vorleben=leben 
2120 anz.geg=-1:RESTORE 2130:FOR i=O 
TO 4:READ ge$:ge$( 1,i)=-ge$:NEXT i: 
FOR i= 0 TO S5:READ ge:ge( 1,i)=ge:NE 
xıT i 
2130 DATA Klabautermann, Smexon, list 
ig,unnachgiebig, 1W+0,6,15,18,8,6, 1 
2140 GOSUB 3440:IF leben<1 THEN GOT 
0 2180 ELSE IF leben+S<vorleben THE 
N GOTO 2160 
2150 PRINT #1,"S5ie haben den Klabau 
- termann get}tet und k}nnen nun 
den Schatz an sich nehmen. Sie ve 
rlassen nun den Raum” :GOSUB 
2710:G0T0 1450 
2160 PRINT #1,"Sie haben den Klabau 
- termann get}tet doch sie haben 5 
ich Wunden zugezogen und Sie sp 
@ren, da“ Gift an der Dol 
chspitze gewe- sen sein mu’. Es gib 
t kein Gegenmittel ...":G0OSUB 2710: 
GOTO 2180 
2170 PRINT #1,"Sie sp@ren einen 
schmerzhaften Bi“ und Ihre Lebens 
energie fF’l1t um zwei Punkte.":P 
EN#1,1:PRINT #1,"”( Lebensen 
ergie"; :leben=leben-2:PRINT #1,1lebe 
n;")"”:PEN #1,2:G0SUB 2710:IF leben< 
I THEN GOTO 2180 ELSE GOTO 2030 
2180 PEN#1,1:PRINT #1,"Sie sind tot 
ItI":PRINT #1,"Sie werden noch oft 
dieses Abenteuer spie-len m@ssen 
‚„ damit Sie gen@gend Erfahr 
ung sammeln."”: 

2190 PRINT #1:PEN#1,2:PRINT #1,"-1- 
s- nochmal spielen":PRINT #1,"-2-b- 
Spiel beenden" :tast$="sb12" :GOSUB 

4500:IF t=1 THEN RUN ELSE E 

ND 

2200 PRINT #1,"Der Kasten ist leer. 
Au“<erdem m@ssen Sie feststellen 

‚ da’ er keinen Boden hat. In de 

r {ffunug im Schrankboden k 

Innen Sie nun: ":PRINT #1,"-1-t- vo 

rsichtig mit der Hand tasten 


2210 PRINT #1,"-2-s- mit Ihrer Waff 
e stochern":PRINT #1,”-3-v- o 


der das Zimmer verlassen 
NT #1,”-4-u- Bett untersuch 
en” :tast$="tsvu1234”:G0SUB 4500:0N 
t GOTO 2170,2030, 1450, 2430 
2230 PRINT #1,”Sie heben den Kasten 
an und entdecken, da“ er eine {ff 
nung im Schrankboden verdeckteS$i 
e k}nnen:":PARINT #1:PARINT # 
1,”-1-a- den Kasten auf- brec 
hen":PRINT #1,"-2-t- vorsichtig in 
der {ffnung mit der H 
and tasten” 
en PRINT #1,"-3-s- mit Ihrer Waff 
stochen” :tast$="ats123”:605 
UB 4500:0N t GOTO 2200, 2230, 2030 
2250 flagaltefrau=flagaltefraus1: IF 
flagaltefrau>3 THEN GOTO 2290 ELSE 
60TO 2330 
2260 PRINT #1,"Der Schrank 1”*t sic 
h leicht }ffnen. In ihm h’ngen alte 
Kleidungs-st@cke. Sie entdecken au 
“erdem ein Entermes-ser, da 
ihre Treffer-punkte auf 1W+3 anst 
eigen 1”*t."” 
2270 att=13:par=11:tp$="1W+3" :PAINT 
#1,”"Auf dem Schrankboden steht ei 
n gro’°er h}l- zerner Kasten. 
Sie k}nnen:"; :PRINT #1:PRI 
NT #1,”-1-u- den Kasten 
untersuchen” 
2280 PRINT #1,"-2-z- sich dem Bett 
zuwenden” :PRINT #1,”-3-v- Z 
immer verlassen" :tast$="uzt 123" :605 
UB 4500:0N t GOTO 2230, 2430 
‚1450 
2290 PRINT #1," "Ihr schon wieder !’ 
schreit die Alte euch an. ’Woher 
soll ich eine Waffe nehmen ?’°":6G0O 
SUB 2710:G0T0 1670 
2300 PRINT #1,"”"5ie h}ren ein leises 
Zischen und rei’en Ihre Hand z 
ur@ck, aberes ist schon zu sp’t. Ei 
ne kleine Schlange hat Euc 
h gebissen. Sieverlieren” 
2310 ORIGIN 168,216, 168, 198, 246,216 
:G05UB 3240:L0CATE #1,1,14:PEN #1,1 
:PAINT #1:leben=leben-a:PRINT #1,"( 
Lebensenergie:"leben")":PE 
N #1,2:L0CATE #1,1,14:IF a<2 THEN P 
RINT #1,8;"Lebenspunkt.” ELSE PRINT 
#1,a;"Lebenspunkte.” 
2320 GOSUB 2710:IF leben<1 THEN GOT 
0 2180 ELSE GOTO 2350 
2330 PRINT #1,"Nachdem Sie von Ihre 
m Mi’geschick erz’hlt haben, sieh 
t die Alte Euch nachdenklich an un 
d gibt Euch ein En- termass 
er, welches gutin der Hand liegt un 
d 1iW+3 Trefferpunkte verursacht.” 


":PRI 


2340 tp$-"1W+3" :att=13:par=11:PAINT 29 
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#1,"Sie kehren zum Treppenpodest z 
ur@ck.”":GOSUB 2710:60T0 1450 
2350 PRINT #1,"Unter dem Kopfkissen 
finden Sie Schl@ssel, die Ihnen v 
iele T@ren }ffnen k}nnten. Sie ne 
hmen sie mit.":PRINT #1:PRI 
NT #1,"-1-d- Schrank durch- 
suchen":PRINT #1,"-2-v- Zimmer verl 
assen":flagschluessel=1 
2360 tast$="dv12":GOSUB 4500:0N t G 
0TO 2260, 1450 
2370 IF flag.c=1 THEN GOTO 2470 ELS 
E PRINT #1,”"Die T@r auf der Nord- s 
eite besteht aus mas-sivem Holz.Sie 
ist verschlossen,ein Schl®@ 
s- sel steckt nicht. Wenn5öie die T@ 
re mit Ge- walt }ffnen wollen, som 
@ssen Sie eine Kraft-probe bestehen 
2380 PRINT #1:PRINT #1,"-1-b- Kraft 
probe be- stehen" :PRINT #1,” 
-2-z- anderen T@ren zuwende 
n":IF flagschluessel=1 THEN 
PRINT #1,"-3-a- mit Schl@ssel 
aufschlie’en":tast$="bza123" EL 
SE tast$="bz12” 
2390 GOSUB 4500:IF t=1 THEN mileben 
=2:G0SUB 2880:IF wflag=1 THEN GOTO 
2470 ELSE GOTO 2370 
2400 IF t=2 THEN GOTO 1450 ELSE GOT 
O0 2470 
2410 PRINT #1,"S5ie h}ren einen zisc 
h-enden Laut.Eine kleineSchlange ve 
rsucht, Siezu bei’en, verfehlt Si 
e jedoch um Haares- breite. 
Sie k}nnen IhreSuche fortsetzen.":G 
05UB 2710:60T0 2350 
2420 PRINT #1,"Die T@re an der Nord 
- seite steht jetzt offen.Sie k 
Innen :":PRINT #1:PRINT #1,"”-1-h- h 
indurchgehen" :PRINT #1,"”-2- 
b- auf dem Podest bleiben":t 
ast$="hb12":GOSUB 4500:0N t GOTO 24 
70, 1450 
2430 IF flagschluessel=1 THEN GOTO 
2440 ELSE PRINT #1,"”Sie werden ange 
geriffenMachen Sie eine Ge- schick 
lichkeitsprobe."”:GOSUB 2710 
:mileben=0:G605UB 2860:IF wflag=1 TH 
EN 2410 ELSE GOTO 2300 
2440 PRINT #1,"Was erwarten Sie hie 
r noch zu finden. Sie haben doch 
hier schon einmal gesucht !1!!"”:G05U 
B 2710:GOTO 2450 
2450 PRINT #1,"Offenbar handelt es 
sich bei diesem Raum um das Schl 
afzimmer. Denn an einer Wand st 
eht ein Bett und einäöchrank 
.":PRINT #1:PRINT #1,”-1-u- Bett un 
tersuchen”; 


2460 PRINT #1,"”-2-s- in den Schrank 
schauen”:PRINT #1,"-3-v- Zi 
mmer verlassen”; :PRINT #1,"-4-b- au 
s dem Fenster blicken 
":PRINT #1,"-S5-e- den Tisch ge- 
nauer erkunden" :tast$="usvbe12 
345":G05UB 4500:0N t GOTO 2430, 2260 
‚1450, 2580, 2600 
2470 IF flag.c<1 THEN flag.c=1:605U 
B 2920 
2475 PRINT #1,"Sie stehen mitten im 
Raum. Eine Wand ist get’felt. D 
ort ver- muten Sie eine Geheim-t@ 
re.":PRINT #1:PRINT #1,"-1- 
}- m})chten Sie die Geheimt®@r 
+ffnen"”; :PRINT #1,"-2-s- im Zimmer 
suchen" 
2480 tast$="}s12":GOSUB 4500:0N t G 
0OTO 1470, 2450 
2490 PRINT #1,"Die alte Frau h}rt 
Ihnen zu und sagt: "Wiekonntet Ihr 
aufgeben, wo Ihr so dicht vor de 
r L}sung standet ?’ Sie sch 
Sttelt den Kopf":GO5SUB 2710:60T0 16 
70 
2500 PRINT #1,"Ein j’her Schmerz 
durchzuckt Ihren K}r- per. Einen 
Augenblick lang scheint Ihre ge- sa 
mte Umgebung ins Riesenhaft 
e zu wachsen, dann wird Ihnen 
schwarz vor Augen.":GOSUB 2710:60 
TO 2180 
2510 PRINT #1,"Die alte Frau sieht, 
wie Sie sich aus dem Haus schlei 
chen wollenSie ist erbost @ber Ih 
re Feigheit und Un- zuverl” 
ssigkeit. Als Dank wirft Sie Ihnen 
ein paar sehr unfreundliche Worte 
hinterher.” 
2520 PRINT #1,"Doch leider nicht nu 
r das ! In ihrem Gram wirft Sie a 
u’er den Worten noch einen kl 
einen vergifteten Dolch. 
Merke: Feigheitwird sofort bestraft 
.”:G0SUB 2710:G60T0 2180 
2530 PRINT #1,"Eine Geschicklichkei 
tsprobe mu” dar@ber ent-scheiden, o 
b Ihnen dasgelingt."”:GOSUB 2710:mil 
eben=-0:gp=-3:G0O5UB 2860:IF w 


flag=1 THEN GOTO 1450 ELSE GOTO 254 
0 


2540 PRINT #1,"6ie 
r Sprung war nicht 
rch landen Sie auf 
il des Treppenab- 
1":G0SUB 2710:G60T0 1180 
2550 PRINT #1,”S5ie schauen aus dem 
Fenster und sehen ein Bild des Gr 
auens. Furcht keimt in Ihnen au 
f, Sie verzweifeln..":GOSUB 


haben versagt.Ih 

weit genug. Dadu 

dem kritischenTe 
satzes 
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2710 
2560 PRINT #1,"Sie sehen, da“ es 
drau’en regnet und Siehaben doch 
Ihre wert- vollen Wildlederstie- fe 
l an und solch ein Regen h 
interl”*t grau-envolle Flecken. Er- 
sch@ttert wenden Sie sich ab.":G 
0OSUB 2710:G0T0 1730 
2570 PRINT #1,"Sie h}ren wie sich i 
n der Kiste etwas regt und bewegt. 
Nach und nach kommen Sie zu demEn 
tschlu”:In der Kistemu” etw 
as Lebendiges sein.":GOSUB 2710:6G0 
TO 1780 
2580 PRINT #1,"Sie schauen aus dem 
Fenster und sehen einegrauenvolle 
Gestalt inalten abgenutzten Ge- w” 
ndern, die Ihnen Furcht 
und Unbehagen einfl}’”t. Je n’her 5 
iedem Fenster treten, desto n’her 
kommt die Gestalt." 
2590 PRINT #1,"Sie z@cken schon Ihr 
e Waffe um sich zum Kampf zu st 
ellen, da bemerken Sie, da“ das Fe 
nster kein Fenster, sondern 
ein Spiegel ist.":GOSUB 2710:60T 
0 2450 
2600 IF flagspinne=1 THEN GOTO 2690 
ELSE PRINT #1,"Sie haben kaum die 
erste Schublade ge}ff-net, da sp 
ringt Ihnen eine mittelgro“ 
e nebelspinne entgegen 
rsucht Sie mit 
hen” 
2610 PRINT #1,"Sie ist f@r eine 
Spinne sehr behende und ihr Sta 
chel durch-dringt auch sehr dickeRA@ 
stungen."”:GOSUB 2710: 
2620 flagspinne=1:vorleben=leben:PRE 
STORE 2630:anz.geg=1:FOR i=-O TO 4:R 
EAD g$:ge$( 1,i1)=g$:NEXT i:FOR i=0O T 
0 5S:READ g:ge( 1,i)=g:NEXT i 
:GOSUB 3440 
2630 DATA nebelspinne,Tten Dnu Beil 
‚aggressiv,unberechenbar, 1W+5, 10,10 
‚5,14,3,0 
2640 IF leben<1 THEN GOTO 2180 ELSE 
IF leben<vorleben THEN GOTO 2670 
2650 PRINT #1,"Die Spinne liegt tot 
vor Ihnen auf dem Bo- den. Erst j 
etzt erken-nen Sie was Sie getan ha 
ben. Es war eins dieser 
seltenen Tiere die mit Ihrem Stich 
ein wundersames Le- benselexier 
verbreiten” 
2660 PRINT #1,"Und Sie haben ein 
solches Tier get}tet ohne von se 
inem Stich Gebrauch zu machen ...": 
G0SUB 2710:G0T0 2450 
2670 PRINT #1,"Sie haben die Spinne 


und ve 
aller Macht zu stec 


get}tet, doch Sie hat Sie gestoch 

en. Sie rechnen mit dem Sc 
hlimmsten und wartendarauf, 

da” das Gift anf’ngt zu wirken." 
2680 PRINT #1,"Doch bald schon merk 
enSie, wie Ihre gesamtenKr"fte wied 
erkehren und Sie sich auf wun- de 
rsame Weise erholt f@hlen 
!I":PEN#1,1:PRINT #1,"”( Lebensenergi 
e 30 )”:PEN #1,2:leben=-30:605UB 271 
0:G0T0O 2450 

2690 PRINT #1,"Au’er dem Kadaver de 
r toten nebelspinne k}n-nen Sie nic 
hts finden.":GOSUB 2710:G60T0 2450 
2700 GOTO 2700 

2710 PRINT #1:PRINT #1,"-1-w- weite 
r":tast$="w1”":GOSUB 4500:RETURN 
2720 * Die Werfel des Schicksals 
2730 LOCATE 9,17:PEN 2:PRINT"Der W@ 
rfel des Schicksals":ORIGIN 330,80, 
330,360, 112,80:G05SUB 2990 

2740 PEN 2:LOCATE 21,21:PRINT USING 
a$;a 
2750 IF a<-probe THEN GOTO 2750 ELS 
E LOCATE 4,23:PRINT"Du hast die Pro 
be nicht bestanden, ":LOCATE 3,24:PR 
INT"dadurch verlierst Du";: 

PEN 1:PRINT USING a$;mileben;:PEN 2 
:PRINT” Lebenspunkte.":leben=leben- 
mileben:PEN 1:L0OCATE 20, 11:PARINT US 
ING a$; leben 

2760 wflag=O 

2770 IF INKEY$="" THEN GOTO 2770 EL 
SE RETURN 

2780 LOCATE 3,23:PRINT"Gratuliere, 
die Probe ist bestanden.":wflag=1 
2790 IF INKEY$=-"" THEN GOTO 2790 EL 
SE RETURN 

2800 *° Die Pr@fungen 

2810 a$="#4” 
2820 GOSUB 3360:LOCATE 26,2:PEN 2:P 
AINT"Pr@fung der":LOCATE 23,6:PRINT 
"Schwierigkeit: ":LOCATE 23,8:PRINT 
"Damit die Pr@fung”; 
2830 LOCATE 23,9:PRINT"gelingt, dar 
f":LOCATE 23, 10:PRINT"der W@rfel de 
s":LOCATE 23, 11:PRINT"Schicksals ni 
cht”:LOCATE 23, 12:PRINT"meh 
r als"”;:PEN 1:PRINT probe:LOCATE 23 
‚1I3:PEN 2:PRINT”"anzeigen. Ein":LOCA 
TE 23,14:PRINT”Fehlversuch nimmt”; 
2540 LOCATE 23,15:PEN 1:PRINT USING 
a$;mileben; :PEN 2:PRINT" Lebenspun 
kte."”; 
2850 RETURN 
2860 *° Die Geschicklichkeitspr@fung 
2870 probe-gesch-gp:GOSUB 2800: PEN 
1:LOCATE 24,4:PRINT"Geschicklichkei 
t":PEN 2:LOCATE 37,6:PRINT USING a$ 
’gPp; :GOSUB 2720:CL56:606UB 2 
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920:RETURN 

2880 ° Die K}rperkraftpr@fung 

2890 probe=kraft-kp:GOSUB 2800:PEN 

1:LOCATE 26,4:PRINT"K}rperkraft”:PE 

N 2:LOCATE 37, 6:PRINT USING a$;kp:G 

DSUB 2720:CL5:605UB 2920:RE 

TURN 

2900 ” Die Charakterpr@fung 

2910 probe=char-cp:G0SUB 2800:PEN 1 

:LOCATE 24,4:PRINT"Charakterst”"rke"” 
:PEN 2: LOCATE 37,6:PRINT USING a$;c 

p:GOSUB 2720:CL5:605UB 2920 

:RETURN 

2920 * ##%* Plan zeichen #*# 

2930 GOSUB 3920:IF flag.a=1 THEN GO 

SUB 4150 

2940 IF flag.b=1 THEN GOSUB 3990 

2950 IF flag.c=1 THEN GOSUB 4030 

2960 IF flag.d=1 THEN GOSUB 4100 

2970 IF flag.gt=1 THEN GOSUB 4070 

2980 RETURN 

2990 REM *#*#* 20seitiger Wuerfel *### 

3000 wz=INT( RND#30) +25: in=wz 

3010 GOSUB 3020:FOR i=-1 TO wz:NEXT 

i:IF wz<200 THEN 3010 ELSE RETURN 

3020 CLG 1:a=INT(RND*20)+1:0N a G0S 

UB 3040, 3050, 3060, 3070, 3080, 3090, 31 

00,3110,3120,3130,3140, 3150,3160,31 

70,3180, 3190, 3200, 3210, 3220° 

‚3230 

3030 wz=wz+in:RETURN 

3040 PLOT 16, 18,2:RETURN 

3050 PLOT 6,28,2:PLOT 26,28,2:RETUR 

N 

3060 PLOT 12,10,2:PLOT 20, 10,2:PLOT 
16, 18,2: RETURN 

3070 PLOT 6,28,2:PLOT 26,28,2:PLOT 
12, 10,2: PLOT 20,10,2:RETURN 

3080 MOVE 1,2:DRAW 30,2,2:RETURN 

3090 GOSUB 3080:G0SUB 3040:RETURN 

3100 GOSUB 3080:605UB 3050 : RETURN 

3110 G6OSUB 3080:G0SUB 3060:RETURN 

3120 GOSUB 3080:605UB 3070 :RETURN 

3130 MOVE 1,2:DRAW 16,28,2:DRAW 30, 

2,2:RETURAN 

3140 GOSUB 

3150 GOSUB 

3160 GOSUB 

3170 GOSUB 

3180 GOSUB 

3190 GOSUB 

3200 GOSUB 


3130:G0SUB 3040 : RETURN 
3130:G0SUB 3050 :RETURN 
3130:G0SUB 3060 :RETURN 
3130:G05UB 3070 :: RETURN 
3130:G0OSUB 3080 :RETURN 
3180:G0SUB 3040 : RETURN 
3180:G605UB 3050 : RETURN 
3210 GOSUB 3180:605UB 3060 :: RETURN 
3220 GOSUB 3180:605UB 3070 : RETURN 
3230 MOVE 1,2:DRAW 1,28,2:DRAW 28,2 
8,2:DRAW 28,2,2:DRAW 1, 2, 2:RETURN 
3240 REM Pe 6seitiger Wuerfel “ru 
3250 wz=INT( AND#30) +25: in=wz 

3260 GOSUB 3270:FOR i=1 TO wz:NEXT 
i:IF wz<300 THEN 3260 ELSE RETURN 


3270 CLG 2:b=a:a=INT( AND*#6) +1:IF b+ 

a=7 OR b=a OR a<1 THEN 3270 

3280 ON a GOSUB 3300, 3310, 3320, 3330 
‚3340, 3350 

3290 wz=wz+in:RETURN 

3300 PLOT 16,16,3:PLOT 14, 16,3:PLOT 
14,14,3: PLOT 16, 14,3: RETURN 

3310 PLOT 6,6,3: PLOT 4,6,3:PLOT 4,4 
‚3:PLOT 6,4,3:PLOT 26, 26, 3:PLOT 24, 

26, 3:PLOT 24, 24,3: PLOT 26, 24,3: ARETU 

AN 

3320 GOSUB 3300:G605UB 3310 :RETURAN 

3330 GOSUB 3310:PLOT 6,26,3:PLOT 4, 

> 3:PLOT 4,24,3:PLOT 6, 24, 3:PLOT 2 
se 3:PLOT 24, 6, 3:PLOT 2a, a, 3:PLOT 

S a, 3:RETURN 

3340 GOSUB 3330 :605UB 3300 : RETURN 

3350 GOSUB 3330:PLOT 16,6,3:PLOT 14 
‚6,3:PLOT 14,4,3:PLOT 16,4,3:PLOT 1 

6, 26, 3:PLOT 14. 26,3: PLOT" 14, 24,3:PL 

oT 16, 24,3: RETURN 

3360 , ar Das Dokument der St”rke 

1.223 

3370 CLS:0RIGIN 0,0,0, 640, 400,0:MOV 

E 8,8:DRAW 638,8,3: DRAW 638, 392, 3:D 

RAW 8, 392,3: DRAW" 8,8,3:MOVE B, 152: D 

RAW 638, 152, 3: MOVE" 344, 152: 

DRAW 344, 392, 3 

3300 a8-"44":b8-"4444":08-"\ 


3390 PEN 2:LOCATE 2,2:PRINT"Dokumen 

t der St"rke”":PEN 1:LOCATE 2,4:PRIN 

T USING c$;typ$:LOCATE 2,5:PAINT U&6 

ING c$;name$:PEN 2 

3400 LOCATE 2,7:PAINT"Klugheit:";US 

ING a$;klug:LOCATE 2,8:PRINT"Charis 
";USING a$;char:LOCATE 14,8:PRIN 

T"Mut :";USING a$;mut:LOCA 

TE 2,9:PRINT"Geschick:"; USING a$;ge 

sch:LOCATE 14,9:PRINT"”Kraft:"; USING 

a$;kraft 

3410 LOCATE 2,11:PRINT"Lebensenergi 

e : ";USING a$;leben:LOCATE 2,12: 

PRINT"Abenteuerpunkte:";USING b$;ab 

pu 

3420 LOCATE 2,14:PAINT"Attacke:” ;us 

ING a$;att: LOCATE 2,15:PRINT"Parade 
;USING a$;par: LOCATE 14, 14:PRINT 

"TP:";tp$:LOCATE 14,15: PRIN 

T"AS: ";USING a$;rs 

3430 RETURN 

3440 * #%*# Der Kampf ##*# 

3450 GOSUB 3360 

3460 LOCATE 12,17:PRINT"Das Kampfpr 

otokoll”:PEN 1:LOCATE 2,19:PRINT US 

ING c$;typ$:LOCATE 2,20:PRINT USING 

c$; name$ 

3470 parflag-0:IF flague-1 THEN GOT 

0 3570 

3450 a=-0:FOR i-=1 TO anz.geg:a-geli, 
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0O)+a:NEXT i:IF a<=mut THEN GOTO 357 

0 

3490 FOR inr=1 TO anz.geg:IF gelinr 
‚i)<1 THEN GOTO 3560 ELSE GOSUB 373 

0:LOCATE 28, 19:PRINT USING c$; "Para 

de":LOCATE 28,22:PRINT USIN 

G c$; "Attacke" 

3500 G0OSUB 3710:G0SUB 2990: IF a>ge( 

inr,3) THEN LOCATE 28,23:PRINT"miss 

gl@ckt":GOSUB 3700:60T0 3560 ELSE L 

OCATE 28,23:PRINT"gelungen"” 

:IF parflag=1 THEN LOCATE 28,20:PRI 

NT"unm}glich”:GOSUB 3700:G60T0 3520 

3510 parflag=1:605UB 3720:G05UB 299 

0:IF a<=par THEN LOCATE 28,20:PRINT 
"gelungen":GOSUB 3700:60T0 3560 ELS 

E LOCATE 28,20:PRINT"missgl 

@Eckt"” 

3520 GOSUB 3710:L0CATE 28,22:PRINT 

USING c$;"Trefferpunkte":LOCATE 28, 

23:PRINT USING c$;"":wurf=O 

3530 LOCATE 28,23:FOR iw=1 TO VAL(L 

EFT$(ge$linr,4),1)) :G0OSUB 3240:wurf 

=wurf+a:PRINT USING "#";a; :PRINT”+"” 
;:G0OSUB 3700:NEXT iw 

3540 LOCATE 28+iw*2-3,23:w$=RIGHT$( 
ge$(inr,4),2) :PRINT w$;:PEN 3:PRINT 
"-" USING "#";rs; :wurf=wurf+VAL(w$) 
-rs:PEN 2:IF wurf<1 THEN wu 

rf=0 

3550 PRINT"=";USING a$;wurf:leben=1 

eben-wurf:LOCATE 20, 11:PRINT USING 

a$; leben:G0OSUB 3700:IF leben<1 THEN 
CLS:GOSUB 2920: RETURN 

3560 LOCATE 28, 19:PRINT USING c$;"" 
:LOCATE 28,20:PRINT USING c$;"":LOC 

ATE 28,22:PRINT USING c$;"":LOCATE 

28,23:PRINT USING c$;"”":605 

UB 3710:CLG 0:G0SUB 3720:CLG 0O:NEXT 
inr " 

3570 IF anz.geg=1 THEN inr=1:60T0 3 

600 ELSE FOR t=1 TO anz.geg:IF gelt 
‚1)=0 THEN NEXT t 

3580 ]=ge(1,1):FOR i=t TO anz.geg:I 

F ge(i,1)>O AND ge(i,1)<1 THEN 1=ge 

(i,1):t=i 

3590 NEXT i:inr=t 

3600 GOSUB 3730:LOCATE 28, 19:PRINT 

USING c$; "Attacke”:LOCATE 28,22:PRI 

NT USING c$; "Parade" 

3610 GOSUB 3720:G0SUB 2990:IF a>att 
THEN LOCATE 28,20:PRINT"missgl@ckt 
":605UB 3700:G0T0 3670 ELSE LOCATE 
28,20:PRINT"”gelungen” 

3620 GOSUB 3710:605UB 2990:IF a<=ge 
(inr,4) THEN LOCATE 28,23:PRINT"gel 
ungen":GOSUB 3700:G0T0 3670 ELSE LO 
CATE 28,23:PARINT"missgl®@ckt 


3630 GOSUB 3720:L0OCATE 28, 19:PRINT 


USING c$;"Trefferpunkte”:LOCATE 28, 
20:PRINT USING c$;"":wurf=O 
3640 FOR iw=1 TO VALCLEFT$CtP$,2)): 
GOSUB 3240 :wurf=wurf+a:LOCATE 28,20 
:PRINT USING "#"”;a; :PRINT"”+”;:GOSUB 
3700:NEXT iw 
3650 LOCGATE 2B+iw#2-3,20:w$=RIGHT$( 
tp$,2) :PRINT w$; :PEN 3:PRINT"”-";USI 
NG "#";gelinr,5) ; :wurf=wurf+VAL(w$) 
-ge(inr,5):PEN 2:PRINT"=";: 
IF wurf<1 THEN PRINT"O"” ELSE PRINT 
USING a$;wurf:ge(inr, 1)=ge(inr, 1) -w 
urf ELSE GOTO 3670 
3660 IF ge(inr,1)<1 THEN ge(inr,1)= 
D:abpu=abpu+tge(inr,2) 
3670 LOCATE 37,11:PRINT USING a$;ge 
(inr,1):LOCATE 18, 12:PRINT USING b$ 
;‚abpu:GOSUB 3700 
3680 LOCATE 28, 19:PAINT USING c$;"" 
:LOCATE 28,20:PRINT USING c$;”":LOC 
ATE 28,22:PRINT USING c$;"":LOCATE 
28,23:PRINT USING c$;"":605 
UB 3710:CL6G 0:G0SUB 3720:CL6 0 
3690 a-0:FOR i-1 TO anz.geg:a-a+gel( 
i,1):NEXT i:IF a<1i THEN CLS:G0OSUB 2 
920:RETURN ELSE parflag=0:60T0 3490 
3700 FOR t=1 TO 1500:NEXT:RETURN 
3710 ORIGIN 324, 34,320, 352,64,32:RE 
TURN 
3720 ORIGIN 324,82,320,352,112,80:R 
ETUAN 
3730 LOCATE 26,2:PEN 2:PRINT"Der Ge 
gner”:PEN 3:LOCATE 23,4:PRINT USING 
c$;ge$(inr,O) :LOCATE 23,5:PRINT US 
ING c$;ge$(inr,1):PEN 2 
3740 LOCATE 23,7:PRINT USING c$;ge$ 
(inr,2):LOCATE 23,8:PRINT ge$(inr,3 
) :LOCATE 23, 10:PRINT"Mut:";USING a$ 
;ge(inr,0) :LOCATE 23, 11:PRI 
NT"Lebensenergie:";USING a$;gelinr, 
1) :LOCATE 23, 12:PRINT"Monsterklasse 
:";USING a$;gelinr,2):LOCATE 23,14: 
PRINT"Attacke:"; 
3750 PRINT USING a$;ge(inr,3) :LOCAT 
E 23,15:PRINT"Parade :";USING a$;ge 
(inr,4) :LOCATE 34, 14:PAINT"TP";ge$( 
inr,4) :LOCATE 34, 15:PRINT"”R 
5 ";USING a$;ge(linr,5) ::LOCATE 2,22 
:PEN 3:PRINT USING c$;ge$(inr,O) ::LO 
CATE 2,23:PRINT USING c$;ge$(inr, 1) 
:PEN 2:RETURN 
3760 *° Umlaute 


'")@“" auf die Taste 


3770 KEY DEF 19,1,93,43,29 

3780 KEY DEF 17,1,91,42,27 

3790 SYMBOL AFTER 64 

3800 SYMBOL 125, 102,0,60, 102,102, 10 
2,60 

3810 SYMBOL 123, 102,60, 102,102, 102, 
102,60 


3820 SYMBOL 126, 198,0, 120,12, 124,20 2» 
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4,118 

3830 SYMBOL 96,219,60, 102,102, 126,1 

02,102 

3840 SYMBOL 64,102,0, 102,102, 102,10 

2,62 

3850 SYMBOL 92,102,0,102,102,102,10 

2,102,60 

3860 SYMBOL 94,28,35,99,108,99,99,9 

9,102 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

0 

3940 * Treppenhaus 

3950 MOVE 0, 128:DRAW 136, 128,2:DRAW 
136, 192,2:DRAW 0, 192,2:DRAW 0,128, 

2:MOVE 0,160:DRAW 104, 160,2:MOVE 96 
‚144:DRAW 104,160,2:DRAW 96 

‚176,2 

3960 FOR i=-0O TO 104 STEP 8:MOVE i,1i 

28:DRAAW i,192,2:NEXT i 

3970 MOVE 0,140:G0SUB 4460:MOVE 102 
‚128:G05UB 4490:MOVE 136, 140:G0SUB 

4470:MOVE 102,192:G05UB 4480 

3980 RETURN 

3990 ° kleine Kammer B 

4000 MOVE 136, 128:DRAW 208, 128,2:DR 

AW 208, 144,2:DRAW 208, 176, 1:DRAW 20 

8,192,2:DRAW 136, 192,2 

A010 1=-16:b=24:w=0:MOVE 148, 132:605 

UB 4260:MOVE 184, 148:w=270:G0OSUB 42 

20:MOVE 152,172:w=90:G0O5SUB 4330 

4020 RETURN 

4030 ” Schlafzimmer C 

4040 MOVE 136, 192:DAAW 208, 192,2:DR 

AW 208,238,2:DRAW 208,270,1:DRAW 20 

8,336,2:DRAW 168,336,2:DRAW 136,336 
‚1:DRAW 104,336,2:DRAW 104, 

182,2 

4050 MOVE 108,300:w=90:G05SUB 4380:M 

OVE 174,194:1=-32:b=32:G05UB 4420:MO 

VE 184,240:1=-20:b=-48:w=0:G605UB 4260 
:MOVE 166,256:w=90:G05UB 42 

20 

4060 

4070 

4080 


KEY DEF 29,1,125, 123,58 

KEY DEF 28,1,126,96,59 

KEY DEF 26,1,64,92 

KEY DEF 22,1,63,33,28 

RETURN 

CLS 

DEG:ORIGIN 376,32,360,640,0,40 


RETUAN 

’ Geheimt@re GT 

MOVE 104,248:G0OSUB 4460 

4090 RETURN 

4100 ” Geheimraum D 

4110 MOVE 104,336:DRAW 0,336,2:DRAW 
0,280,2:DRAW 0,248,1:DRAW 0, 192,2 
4120 MOVE 102,310:w=270:1=64:b=24:6G 
DSUB 4290:MOVE 8,240:1=-32:b=-64:w=0: 
GOSUB 4260:MOVE 58, 272:w=270:G0O5UB 
4220:MOVE 78, 194:1=-50:b=24: 
w=180:G0SUB 4290 


4130 MOVE 16,200:DRAW 48,200,2:DRAW 
48,232,2:DRAW 16,232,2:DRAW 16,200 
‚2:MOVE 36,202:DRAW 36,206,3:DRAW 3 
0,206,3:DRAW 30,210,3:DRAW 
36,210,3:DRAW 36,222,3:DRAW 30,222, 
3:DRAW 30,226,3:DRAW 36,226, 3:DRAW 
36,230,3:DRAW 20,230,3:DRAW 20,202, 
3:DRAW 36,202,3 

4140 RETURN 

4150 ° gro°er Raum A 

4160 MOVE 0,128:DRAW 0,80,2:DRAW OD, 

48,1:DRAW 0,0,2:DRAW 88,0,2:DRAW 11 

2,0,1:DRAW 208,0,2:DRAW 208,48,2:DR 

AW 208,80, 1:DRAW 208, 128,2 

4170 MOVE 2,26:1=88:b=24:w=90:GOSUB 
4290:MOVE 8,32:1=72:b=24 :w=0:605UB 
4260:MOVE 8,72:w=0:G0OSUB 4220:MOVE 
36,72:G0SUB 4220:MOVE 64,7 

2:G05UB 4220:MOVE 96,50:w=270:GOSUB 
4220 

4180 MOVE 2,126:1=24:b=54 :w=0:G05SUB 
4420:MOVE 160,56:1=-32:b=32:w=0:608 

UB 4260:MOVE 184,36:w=180:G05UB 422 

0:MOVE 170,108:w=0:G05UB 42 

20 

4190 MOVE 120,2:DRAW 120,8,2:DRAW 1 

28,2,2:DRAW 160,2,1:DRAW 168,8,2:DR 

AW 168,2,2 

4200 FOR i=0 TO 6 STEP 2:MOVE 176+i 
‚126-i1:DRAW 206-1, 126-1,3:NEXT i 

4210 RETURN 

4220 ’ ### Stuhl ### 

4230 DRAWR 12*#C05( 270+w) , 12*5IN( 270 
+w) :DAAWA 12*C05(w) , 12#5IN( w) :DRAWRA 
12#C0S( 90+w) , 12#*5IN( 90+w) :DRAWR 12 
#C05( 180+w) , 12#5IN( 180+w) 

4240 MOVER 6*#C056( 270+w) ‚6#5IN( 270+w 
) :DARAWA 4*CO0S( 180+w) ‚4*5IN( 180+w) :D 

RAWR 10%*CO6( 90+w) , 10#*5IN( 90+w) :DRAW 

A 20*CO0S(w) ,20*5IN{ w) :DRAWR 
10#C0S( 270+w) , 10*5IN( 270+w) :DRAWRA 

A4*COS( 180+w) ‚4#5IN( 180+w) 

4250 RETURN 

4260 ’” ### Tisch ### 

4270 DRAWR 1#C05(w) ,1#5IN( w) :DRAWR 

b*COS( w+90) ‚b#S5IN( w+90) :DAAWR 1#C05 

(w+180) ,1#5IN( w+180) :DRAWR b#COS( w+ 

270) ‚b*5IN( w+270) 

4280 RE.TURN 

4290 ° ### Bank ##%* 

4300 DRAWR b#COS5S( w+180) ,bD*S5IN( w+18B0 

) :DRAWR 1*CO5S( w+270) , 1#SIN( w+270) :D 

RAWR b#COS(w) ,‚b*SIN(w) :DRAWR 1#COS( 

90+w) ,1#*5IN( 90+w) : 

4310 MDVER 4#C05( 270+w) ‚A®5IN( 270+w 

) :DRAWR (b-4) #COS( 180+w) ‚(b-4) #SIN( 
180+w) :DRAWR ( 1-B) #COS( 270+w) ‚,‚( 1-8) 

#5IN( 270+w) :DRAWR (b-4) *COS 

(w) ,‚Üb-4) #5IN( w) 

4320 RETURN 
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4330 ° ### Kiste F## 

4340 DRAWAR 32#C0S( w+270) ,32#S5IN( 270 
+w) :DRAWA 16#CO0S(w) , 16#5IN(w) :DRAAWA 
32%CO0S( w+90) ‚, 32%*5IN( w+90) :DRAWR 16 
*COS( 180+w) , 16#5IN( 180+w) 

4350 MOVER 4*C0S( 270+w) ‚4#5IN( 270+w 

) :DAAWA 16*COS(w) , 16*SIN(w) :MOVER 4 

*COS( 270+w) ‚„A®SIN( 270+w) :DRAWA 16*C 

DS 180+w) , 16*5IN( 180+w) :MOV 

ER 4*C0S( w) ‚A*FSIN(w) :DRAWA 16#C0OS(2 

70+wW), 16*5IN( 270+w) : MOVER 4#CO0S(w), 
AXSIN(w) 

4360 DRAWR 16*C0S( 90+w) , 16*5IN( 90+w 
) :MOVER 4*COS(w) ,‚4*SIN(w) :DRAWR 16* 
COS( 270+w) , 16#5IN( 270+w) :MOVER 4#C0 
S(w) ‚4*5IN(w) :DRAWA 16*CO0S( 

180+w) , 16*5IN( 180+w) :MOVER 4*#C0S( 27 
O+w) ‚A®SIN( 270+w) :DRAWR 16*COS( w) , 1 
6*51N(w) 

4370 RETURN 

4380 * ### Bett *##* 

4390 DRAWA 64*C0S( 270+w) ,64#5IN( 270 
+w) :DARAWR 32#C0S(w) ,32#SIN( w) :DRAWR 
64*CO0S( 90+w) ‚64#SIN( 90+w) :DRAWR 32 
*CO0S( 180+w) ‚,32*5IN( 180+w) :M 

OVER 22#C0S( 270+w) ‚,22*SIN( 270+w) 

AADD DRAWR 26#C0S(w) ‚,26*SIN( w) :DRAAW 
R 16*C0S( w+90) , 16*5IN( w+90) :DRAWAR 2 
O*COS( 180+w) ‚20=*SIN( 180+w) :DRAWR 16 
*C0S( 270+w) , 16*SIN( 270+w) :D 

RAWR 26#COSClw) ,26*5IN( w) 

4410 RETURN 

4420 ’ ### Schrank ### 

4430 DRAWR 1#C0S( 270+w) , 1#5SIN( 270+w 
J) :DRAWA b*COS(w) ,„b*SIN(w) :DRAWA 1*#C 

OS(w+90) , 1#5IN( w+90) :DRAWR b#COS( 18 

O+w) ‚bD*SIN( 180+w) 

AAAD DRAWR 1*#C0S[ 270+w) +b#COS(w) , 1* 

SIN( 270+w) +b*SIN( w) :MOVER b#COS( 180 
+w) ,‚b*SIN( 180+w) :DRAWAR 1*COS( 90+w) + 

b*COS{w) , 1#SINC 90+w) +b*SIN( 


4450 RETUAN 

4460 DRAWR -8,32,1:DRAWR 8,0, 1:RETU 
AN: ’ ### T;r 1 

4470 DRAWR 8,32,1:DRAWR -8,0,1:RETU 
AN: ’ ### t;r 2 

4480 DRAWR 32,8,1:DRAWR 0,-8,1:RETU 
AN: ’### t;r 3 

4490 DRAWR 32,-8,1:DRAWR 0,8, 1:RETU 
AN: ### t;r 4 

4500 ° Tastatur-Men®@-Routine 


4510 PEN 3:LOCATE 2,24:PRINT"Ihre A 
nweisung ? ";:PEN 1 

4520 t$=INKEY$:IF t$<>"" THEN 4520 

4530 t$=INKEY$:IF t$=""” THEN 4530 E 
LSE :t$=LOWER$(t$) :FOR i=1 TO LEN 
ast$) :IF MID$ltast$,i,1)<>t$ THEN N 
EXT i:G0TO A530 

4540 PRINT t$;:IF VAL(t$)<1 THEN t= 


i ELSE t=VAL(t$) 
4550 PEN 2:FOR i=1 TO 500:NEXT 
5#1: RETURN 


i:CL 


FUNKTIONSPLOTTER 


Das Programm ‚‚Funktionsplotter‘‘ der Autoren 
Lars Beuermann und Gert Ravensburg bietet die 
Möglichkeit, Funktionen auf bestimmten Interval- 
len auf dem Bildschirm grafisch darzustellen und 
auf dem Drucker auszugeben. Die Autoren sind 
beide Physikstudenten an der Universität Göttin- 
gen. 
Die Funktionseingabe erfolgt direkt mit abschließen- 
dem ENTER, wobei alle numerischen Funktionen 
des Locomotive-Basic zulässig sind. Es erlaubt auch 
zusammengesetzte Funktionen (bis maximal 62 
Zeichen). 
Eingabefehler werden erkannt, vom Programm abge- 
fangen und dem Benutzer gemeldet. Gibt man statt 
einer Funktion den Buchstaben “H“ ein, so er- 
scheint das Hilfsmenü. 
Nachdem man die Funktion eingegeben hat, werden 
die Grenzen des zu zeichnenden Intervalls abgefragt. 
Nach der Berechnung der Funktionswerte wird die 
Funktion unter Berücksichtigung der maximalen 
Auflösbarkeit des Bildschirms in einem skalierten 
Koordinatensystem gezeichnet. 


1,598 -.0  -0.59 +9,00 +8.58 
Gezeichnet in Intervall [2,2] 


+1.08 


Der Benutzer kann nun zwischen verschiedenen 
Menüpunkten wählen, die alle mit einer Sicherheits- 
abfrage versehen sind. Er kann sich erstens eine 
Hardcopy anfertigen lassen, die auf mehreren 
Druckern getestet wurde. 

Zweitens kann sich der Benutzer aber auch die Werte - 
tabelle ausdrucken lassen. Eingegeben werden müssen 
Anfangs- und Endwert des Intervalls sowie die 
Schrittweite und die Anzahl der zu rundenden Nach- 
kommastellen. 

Drittes kann man sich dieselbe Funktion in neuen 
Intervallgrenzen darstellen lassen und viertens kann 
eine ganz neue Funktion gewählt werden. 

Also, rundherum ein gutes Programm für Schüler, 
Studenten und Interessierte, das zudem noch schnell 
und problemlos anzuwenden ist. Durch die Rechner- 
kennung am Programmanfang ist das Programm auf 
allen CPC-Typen mit oder ohne Vortexerweiterung 
lauffähig. 
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IB 7ER EEE HIER IE IE IE SE IE IE TEE IE IE IE IE SEE IE IE TEE 


28 ’* FUNKTIONSPLOTTER * 
38 ’* VON #* 
a8 '# G.RAVENSBURG & L.BEUERMANN * 
sn ’* FUER * 
6B '* SCHNEIDER AKTIV * 
79 ’#* CPC 464/664/6128 JE* 


BB TRRRRRRRRRSHRHHRHRRHRHRISIHIIHHIEFIEN 

98 

188 MODE 1:LOCATE 18, 13:PRINT"”ENTER 
ING USER PROGRAM" 

118 ’Rechnererkennung 

128 IF PEEK( EACBE)<>&C9 THEN tuning 

%=6B941 ELSE tuning%=&B939 

138 "Tuning 464 an:POKE &B939,6C9 - 
Tuning 664/6128 an:POKE &B941,6C9 

(aus=&F3) 

148 ’Hardcopy 

158 ° Hardcopy fuer IBM-kompatible 
Drucker 

168 ’7 Bit Schnittstelle 

178 * getestet mit BROTHER M-1989, 
MANNESMANN TALLY 85 und SCHNEIDER D 
MP 2808 

188 ° (kann gegen andere Hardcopy a 
usgetauscht werden) 

198 GOSUB 2418 

288 ’5ymbols 

218 SYMBOL 240,666,69,666,666,666,& 
66,63E,&68 : ’ue 

228 SYMBOL 241,666,68,63C,666,666,& 
66,63C,68 : ’oe 

238 SYMBOL 242,67C,86C06,6C06,6DC,&C6, 
EC6,6DC,EC8 :’sz 

248 SYMBOL 243,66C,68,678,6C0C,67C,6C 
C,676,68 :’ae 

258 Titelbild 

268 INK 8,8:INK 1,26:INK 2,17:INK 3 
‚9:PAPER @:PEN 1:BORDER 13:MODE 1 

278 POKE tuning%,&C9:FOR x%=-328 TO 
328 STEP 2:y=x%"2/256:PLOT x%+320, 

488-y,8:MOVER ®8,-6:DRAWR B8,y-394,2: 
MOVER 9,486-y:DRAWR 8,y-6,1:DRAWR ® 
‚y-394,3:NEXT x%:POKE tuning%,&F3 
288 LOCATE 12,2:PRINT”FUNKTIONEN-PL 

OTTER”:LOCATE 16,5:PAINT CHRA$( 164); 
"1987 ”; 

298 PRINT” by”:LOCATE 5,8:PRINT"Ger 
t Ravensburg & Lars Beuermann” :LOCA 
TE 15,13 

388 PRINT”Version 3.8”:LOCATE 11,1 
8:PRINT”fF”;CHR$( 248) ;"r CPC 464-664 
-6128” 

318 LOCATE 18,24:PRINT”Taste!”:CALL 
&BB18 

328 CALL &BB83:INK 8,8:INK 1,26:INK 
2,28:INK 3,6:BORDER 4 

338 ’Funktionseingabe 

348 MODE 1:t$=CHRA$( 9) +CHA$L 9) +CHRA$( 

9) 


358 DRAWR 8,399, 1:DRAWR 639,8:DRAAWR 
8,-399:DRAWR -639,8:MOVER 8,96:DRA 

WA 639,8 

368 LOCATE 12,2:PRINT"”FUNKTIONEN-PL 

OTTER"” 

378 LOCATE 2,5:PRINT"Gezeichnet wer 
den folgende Funktionen:"”:PRINT 


388 PRINT t$+"Polynom 
: x“ zahl" 

398 PRINT t$+"Quadratwurzel 
: SQARL x)" 

488 PRINT t$+"Nat. Logarithmus 
s LOG( x)” 

418 PRINT t$+"Dek. Logarithmus 
: LOG1B8Lx)” 

428 PRINT t$+"Exponentialfunktion 
: EXP( x)” 

438 PRINT t$+"Sinus 
. SIN{ x)” 

448 PRINT t$+"Cosinus 
R COS( x)” 

458 PRINT t$+"Tangens 
: TAN( x)” " 

468 PRINT t$+"Arcustangens 
n ATNCx)"” 

478 PRINT t$+"Absolutbetrag 


5 ABS( x) " :PRINT 
488 PRINT CHR$(9) ;"und ihre Verkett 
ungen durch ”° + — * /":PRINT 
498 WINDOW 2,39,21,24:WINDOW41,2,39 
‚28,28 
588 IF ineu%=1 THEN GOTO 628 
518 CLS:PRINT"Geben Sie f(x) oder ” 
;CHR$( 2A) ;"H f”;CHA$C2AB) ;"r Hilfe” 
;CHAR$( 24) ;" ein." :PRINT 
528 INPUT"FLx)=",fx$:CL5S:IF UPPER$( 
fx$)="H" THEN GOSUB 1178:G0T0O 3408 
53@ IF INSTRELOWER$Cfx$),"x”)=8 OR 
LEN( fx$) >62 THEN 518 
SAm z1I$=CHRA$( 13) +"688 DEF FN fFLx)=" 
:z2$=CHR$( 13) +"”GOTO 688" +CHRA$C 13) 
558 KEY 139, z1$+fx$+z2$ 
568 KEY DEF 18,8, 139 
578 PRINT”FLx)=";LEFT$CEFX$,33) ;:PAI 
NT MID$CFx$,34) 
588 LOCATE 1,4:PARINT”Die Funktion m 
it < ENTER > best”;CHRA$( 243) ;"tigen 
1". 
> ’ 
598 WINDOW 
688 DEF FN 
618 WINDOW 
8 
628 CLS:ineu%=8:LOCATE 5,1:PRINT"FL 
x) wird in [a,b] gezeichnet!” :PRAINT 
:LOCATE 5,3 
638 INPUT"linke Grenze: a = ",a:LO 
CATE 5,4:INPUT"rechte Grenze: b = "” 
b 
} 
648 IF b<=a THEN GOTO 628 
658 CLS:1.0CATE 6,2:PRINT"”Die Funkti 


SWAP B8,1:PEN B:END 
f(x) =SIN( 28#x) #EXPL-x"2) 
SWAP 1,8:PEN 1:CALL &BB# 
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onswerte von f(x)” 

668 LOCATE 6,4:PRINT"werden jetzt b 
erechnet ...."” 

678 "Vorbereitung zum Zeichnen der 
Funktion 

688 POKE tuning%,&6C9:DEFINT Jj,p,t,u 


z 
698 ON ERROR GOTO 1488 

798 zlinks=6:zrechts=®:zoben=1:zunt 
en=3:urx=zlinks#8+1 :ury=zunten#16+2 
7198 pixx=639-urx-B#zrechts-2:pixy=3 
99-ury-16*zoben-4:schritt=2*(b-a)/p 
ixx 

728 DIM y(pixx/2+1):ymax=FN f(a):ym 
in=FN f(a) :j=1 

738 FOR i=a TO b STEP schritt:y( j)= 
FN f(i) 

748 IF ymax<y( jJ) THEN ymax=y( j) ELS 
E IF ymin>y( j) THEN ymin=y( J) 

758 j=j+1:NEXT i 

768 d( 1)=b-a:d( 2)=ymax-ymin:xfaktor 
=pixx/d( 1) :yfaktor=pixy/d( 2) 

778 JE 3) =MAXCABS(a) ,ABS(b)) :d( 4) =MA 

XCABS( ymin) ‚ABS( ymax)) 

788 testx=SGN( a) #5GN( b) :testy=SGN( y 

max) *5GN( ymin) 

798 ’Zehnerpotenzen 

8088 FOR i=-1 TO 4 

819 z(i)=® 

828 IF ABS(d(i))<1iI THEN 838 ELSE IF 
ABS(dLIi))<IB THEN 858 ELSE 848 

83A dli)=dli)*18:zli)=zli)-1:6G0T0 8 
28 

aa dli)=dli)/19:zli)=-zli)+1:60T0 8 
28 

858 NEXT i 

868 ’Skalierung 

878 FOR i=1 TO 2 

888 IF d(i)<=1.9 THEN 

0TO 948 s 

898 IF d(i)<=3.6 
OTO 948 

988 IF d(i)<=4.5 
0OTO 948 

918 IF d(i)<=5.4 
0TO 9408 

928 IF d(i)<=7.2 
0TO 948 

938 skalli)>=1 
948 NEXT i 

958 MODE 2:0RIGIN urx,ury 

968 MOVE -1,-2:DRAW -1,pixy+2:DRAAW 

pixx+t1,pixy+2:DAAW pixx+1,-2:DRAW - 
1,-2:TAG 

978 ON testx+2 GOSUB 1978, 19780,2888 
988 ON testy+2 GOSUB 2198,2198,2298 

998 TAGOFF:LOCATE 74,25:PRINT "*#1@* 
";203);:LOCATE zlinks, 1:PAINT "#1@* 
";2(4); 

1988 IF testx<=8 THEN MOVE -xfaktor 


skalli)=@.2:6 
THEN skal(i)=8.4:6 
THEN skal(i)=@8.5:6 
THEN skal(i)=®8.6:6 


THEN skal(i)=8.8:6 


#3,8:DRAW -xfaktor*a,pixy 
1818 IF testy<=® THEN MOVE ®,-yfakt 
or*ymin:DRAW pixx,-yfaktor*ymin 


1828 ’Zeichnen der Funktion 

1838 MOVE B,yfaktor*(y( 1)-ymin) : j=2 
:FOR i=a+schritt TO b STEP schritt: 

x=xfaktor#(i-a) :y-yfaktor*( y( j) -ymi 

n) :DAAW x,y:j=j+1:NEXT i 

1848 LOCATE zlinks+8, 1:PRINT"FLx)=" 
;LOWER$( Fx$) 

1858 POKE tuning%,&F3 

1868 ’Abfrage 

1878 WINDOW42,1,72,25,25 

1888 CLS#2:LOCATE#2,4,1:PRINT#2,CHR 

$[24) ;" <H>ardcopy <W>ertetabelle 
<I>ntervall neu <F>unktion neu < 

E>nde ";CHR$( 24); 

1898 a$=UPPER$( INKEY$) :IF a$="" THE 

N 1898 
1188 IF 
1888 
1118 IF 
1888 
1128 IF 
18808 
1138 IF a$="I" 
18808 
1148 IF 
1888 
1158 GOTO 1898 

1168 ’Hilfe 

1178 fx$="":MODE 1:DAAWR 8,399, 1:DR 

AWA 639,8:DRAWR @,-399:DRAWA -639,8 
1188 LOCATE 12,2:PRINT"FUNKTIONEN-P 

L.”;CHRA$( 224) ;"TTER"” 

1198 WINDOW 2,39,5,24:L0OCATE 18,1:P 

RINT"Allgemeine Hinweise:":PRINT:PR 
INT 

1288 PRINT"Das Programm zeichnet Fu 
nktionen auf” :PAINT:PRINT”beliebige 

n Intervallen. Die Funktionen"; :PRAI 

NT 

1218 PRINT"”d";CHA$( 248) ;"rfen mit + 
» 7, #*, /, * aus denen des"; :PRINT: 

PRINT"Handbuches zusammengesetzt we 

rden. Die”; :PAINT 

1228 PRINT"”L”;CHA$(243) ;"nge der ei 

ngegebenen Funktion darf” :PRINT:PRI 

NT"maximal 62 Zeichen betragen."”:PR 

INT 

1238 PRINT"Die Winkelgr";CHA$( 241); 

CHR$( 242) ;"en m” ;CHRA$( 248) ;"ssen im 
Bogenma" ;CHA$( 242) :PAINT:PRINT"("; 

CHR$( 184) ;"=3.14159265) angegeben w 

erden.” 

1248 LOCATE 16,28:PRINT”"<TASTE>":CA 

LL &BB18 

1258 CLS:LOCATE 3, 1:PRINT"Beispiele 


a$="H" THEN GOSUB 1588:G0T0 


a$="W" THEN GOSUB 1588:60T0 


a$=-"F” THEN GOSUB 1788:G0T0 


THEN GOSUB 1848:G0T0 


a$="E" THEN GOSUB 1988:G0TO 


f";CHA$( 248) ;"r m";CHR$(241);"glic 29 
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he Funktionen:":LOCATE 1,5 


1268 PRINT"Stichwort Funktion 
Intervall” 

1278 PRINT”"Polynom FLx)=7#x206-3#% 

.2 [-1,1]”; 

1288 PRINT"Wurzel FLx) -5QRCx) *lx 

-2) £ 8,31”; 

1298 PRINT"Nat. Log. f(x) =LOG(x)*5SI 

N(x) [8.1,4]”; 

1388 PRINT"Dek. Log. f[x)=LOG18[x)* 


COS(x) [8.1,7]”; 
1318 PRINT"Exp. Fkt. 
[-4,4]”; 
1328 PRINT"Sinus 
[8.85,8.5]”; 
1338 PRINT"Cosinus 
[-3,31”; 
1348 PRINT"Tangens 
2 [-1.5,1.8]”; 
1358 PRINT"Arcustan. 


fEx)=EXPL-x“2) 
FEx)=SIN[ 1/x) 
f[x)=C0S(2°x) 
FÜxX) TANK) -x“ 


FEx)=-ATN( x) 


[-3,3]"; 
1368 PRINT"Betrag f(x) =ABS( SIN( x 
)) [-3,31”; 


1378 LOCATE 16,28:PARINT"<TASTE>":CA 

LL &BB18 

1388 RETURN 

1398 ’Fehlerbehandlung 

1488 POKE tuning%,&F3 

1418 Cı5s 

1428 IF ERA=2 THEN PRINT"fLx)=";LEF 
T$CFXx$,33) ;:LOCATE 1,2:PRINT MID$CF 
x$,34) ;:LOCATE 1,3:PAINT"beinhaltet 
einen syntaktischen Fehler!";:LOCA 
TE 32,4:PARINT"<TASTE>";:G0TO 1478 
1438 IF ERR=5 THEN PRINT"f(x)=";LEF 
T$CFX$,33) ; :LOCATE 1,2:PRINT MID$CF 
x$,34) ;:LOCATE 1,3:PRINT"ist nicht 

definiert auf dem Intervall” :PRINT" 

[";5a;",";5b;"]":LOCATE 32,4:PRINT"”<T 

ASTE>”; :GOTO 1478 

1448 IF ERA=6 THEN PRINT"fFLx)=";LEF 

T$CFX$,33) ;:LOCATE 1,2:PRINT MID$SCF 
x$,34) ;:LOCATE 1,3:PRINT"hat zu gro 
";CHA$( 242) ;"e Werte auf dem Interv 
all”:PRINT"L";a;”,"”;b;"]":LOCATE 32 
‚4:PRINT”<TASTE>";:60TO 1478 

1458 IF ERA=11 THEN PRINT"”F(x)=";LE 

FT$CFX$,33) ;:LOCATE 1,2:PRINT MID$( 

fFx$,34) ;:LOCATE 1,3:PRINT"teilt dur 

ch die Null auf dem Intervall"; :PRI 
NT"L";a;",";b;"]":LOCATE 32,4:PRINT 
"<TASTE>";:GOTO 1478 

1468 PRINT"FEHLER ";ERR;” in Zeile 
"-ERL:LOCATE 32,4:PRINT”<TASTE>"; 
1478 CALL &BB18:CLS:ERASE y 

1488 RESUME 518 

1498 ’Hardcopy 

1588 CLS#2:LOCATE#2,zlinks, 1:PRINT#£ 
2,CHR$(24);” Soll wirklich eine Har 

dcopy vom Bildschirm gemacht werden 


? (J/N) ";CHA$(24) 

1518 a$=UPPER$( INKEY$) :IF a$="" THE 

N 1518 

1528 IF a$<>"”J)" THEN 1568 

1538 CLS#2:LOCATE#2, zlinks, 1:PRINT£ 

2,CHR$( 24) ;” Schalten Sie den Druck 

er an und dr”;CHA$( 248) ;”cken dann 

eine Taste! "”;CHA$( 24) :CALL &BB18 
1548 CLS#2:LOCATE#2,zlinks, 1:PRINT£ 

2,"Gezeichnet im Intervall Te 
1558 ORIGIN 8,8:CALL EAB88 

1568 RETURN 

1578 "Wertetabelle 

1588 CLS#2:LOCATE#2,zlinks, 1:PRINT£ 

2,CHR$(24);"” Soll wirklich eine Wer 
tetabelle gedruckt werden? (J/N) "; 

CHR$( 24) 

1598 a$=UPPER$( INKEY$) :IF a$="" THE 
N 1598 

1688 IF a$<>”J” THEN 1768 

1618 CLS#2:PRINT#2,CHR$( 24) :CLS#$2:1 

NPUT#2,;"” Anfangswert = ",a: INPUTf2 
»;"” Endwert = ",b:INPUT#2,;” Schrit 
tweite = ",s:PAINT#2,CHR$( 24); 

1628 IF a>=b THEN GOTO 1618 

1638 IF s=@ THEN s=1 

1648 CLS#2:PRINT#2,CHR$( 24) :CLS#2:1 

NPUT#2,” Auf wieviel Stellen sollen 
die y-Werte gerundet werden? ",u2: 

PRINT#2,CHR$( 24) ; 

1658 CLS#2:LOCATE#2, zlinks, 1:PRINTf 

2,CHR$(24);" Schalten Sie den Druck 

er an und dr"”;CHA$( 248) ;"cken dann 

eine Taste! "”;CHA$(24) :CALL &BB18 
1668 PRINT#8,CHR$( 27) ; CHR$( 55) ; 
1678 PRINT#8,CHR$( 14) ; TAB( 16) ; "WERT 

ETABELLE” ;CHR$( 28) :PRINT#8 

1688 PRINT#8,TAB( A1-(LEN( fFx$) +5) \2) 
;CHR$C 27) ;CHA$( 69) ;"Flx)=";LOWERSC 

x$) ;CHA$( 27) ; CHR$( 78) 

1698 PRINT#8:PRINT#8,TAB( 16) ;"” 
X\-WERTE l Y-WE 

a Te” 


1718 u1=LEN(MID$CSTA$CS-FIX(Ls)),4)) 
:IF u1=8 THEN u1=1 

1728 Formatx$="AHHHHHHH."+STRINGSC u 
1,"4") :formaty$="AHHHHHHH ."+STRING$ 
(u2,"4”) 

1738 FOR i=a TO b STEP s 

1748 PRINT#8,TAB( 28) ;USING formatx$ 
;i; :PRINT#8,TAB( 41) ;"1"; :PRINT#8,TA 
B(46) ;USING formaty$;FN fl(i) 

1758 NEXT i 

1768 RETURN 

1778 "Funktion neu 

1788 CLS#2:LOCATE#2,zlinks, 1:PRINT#£ 
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2,CHR$(24);” Soll wirklich eine neu 

e Funktion gezeichnet werden? (J/N) 
";CHA$( 24) 

1798 a$=UPPER$( INKEY$) :IF a$="" THE 

N 1798 

1888 IF a$<>"J" THEN 1828 

1818 ERASE y:GOTO 348 

18?2® RETURN 

1838 Intervall neu 

1848 CLS#2:L0CATE#2,zlinks, 1:PRINT# 

2,CHR$(24);” Soll wirklich ein neue 

s Intervall gezeichnet werden? (J/N 

) ";CHR$L24) 

1858 a$=UPPER$L INKEY$) :IF a$="" THE 

N 1858 

1868 IF a$<>"J" THEN 1888 

1878 ERASE y:ineu%=1:60T0 348 

15858 RETURN 

1899 ’Ende 

1988 CLS#2:LOCATE#2, zlinks, 1:PAINT# 

2,CHR$[ 24) ;” Soll das Programm wirk 
lich beendet werden? (J/N) ";CHR$C2 

4) 

1918 a$=UPPER$L INKEY$) :IF a$="" THE 

N 1918 

1928 IF a$<>"J)" THEN 1958 

1938 ERASE y:CLEAR:INK 8,1:INK 1,24 
:BORDER 1:MODE 1 

1948 LOCATE 19, 13:PRINT"END PROGRAM 
FXECUTION”:LOCATE 1,1:END 

1958 RETURN 

1968 ’Nulldurchgang x 

1978 startx=®:xstart=®:xstarti=xfak 
tor*(-a) 

1988 MOVE xstart1i,-2:DRAWA 8,-18:IF 
xstarti<pixx-18 THEN MOVER -28,-6: 

PRINT USING"+#.4#" ;xstart#18*( -z( 3) 
J); 

1998 j=1:v=-9:w=8 

20888 xstart=startx-skal[ 1)*#18°z( 1) * 
j:xstarti=xfaktor#(xstart-a) 

2818 IF xstart+8.5*skall 1)*#198°z( 1) > 

=a THEN MOVE xstart1+B.5#*xfaktor*sk 
all 1)*198°z( 1), -2:DRAWA B8,-6 

2n28 IF xstart<=a THEN w=1 ELSE MOV 
E xstart1,-2:DRAWR ®8,-1i8:MOVER -2B, 
-6:PRINT USING"+#.#4#” ;xstart*#18°( -z 
(3); 

2038 xstart=startx+skal( 1) #19°z( 1)* 
j:xstarti=sxfaktor*#( xstart-a) 

2848 IF xstart-8.5*skal( 1)#18°z( 1)< 
=b THEN MOVE xstart1-8.5%*xfaktor*sk 

all 1)*198°z( 1) ,-2:DRAWR 8,-6 

2858 IF xstart1>=pixx-18 THEN v=1 E 

LSE MOVE xstart1i1,-2:DRAWR 8,-18:MOV 
ER -28,-6:PRINT USING"”+#.#4#";xstart 

#18°(-z[3)); 

2868 IF v=1 AND w=1 THEN RETURN ELS 
E j>j3+1:G0OTO 2888 

2078 ’Kein Nulldurchgang x 


2888 IF ROUND(a,1-z( 1))<a THEN star 
tx=ROUND( a+skal( 1) #18°z( 1) ,1-z( 1)) 
ELSE startx=ROUND( a, 1-z(1)) 

2898 j=8 

2188 xstart=startx:xstart1i=xfaktor* 
(xstart-a) 

2118 IF xstart-8.5%skal( 1) #19°z( 1)> 
=a THEN MOVE xstart1-8.5*xfaktor*sk 
all 1)#18°z( 1) ,-2:DRAWR 8,-6 

2128 WHILE xstarti<=pixx-iB8B 

2138 MOVE xstart1i,-2:DRAWR 98,-18:MO 
VER -28,-6:PRINT USING"+#.##4” ;xstar 
£*18°(+20323); 

2148 IF xstart+B8.5%skal( 1)#18°z[ 1)< 
=b THEN MOVE xstart1+8.5%xfaktor*sk 
all 1)#18°z[ 1), -2:DRAWR B,-6 

2158 j=>j+t1:xstart=startx+skall(l 1)*#18 
*z( 1)*j:xstarti=xfaktor*( xstart-a) 


2168 WEND 

2178 RETURN 

2188 ’Nulldurchgang y 

2198 starty=®:ystart=8:ystarti=yfak 
tor*#( -ymin) 

2288 MOVE -1,ystarti:DRAWAR -6,8:MOV 
ER -42,4:PRINT USING"”+#.#4” ; ystart* 
18°C -z(4));:j=1:v=-8:w=8 

2218 ystart=starty-skal([2)*#198°z( 2) * 
jJ:ystarti=yfaktor*(ystart-ymin) 
2228 IF ystart+8.5%#*skal( 2) #18°z(2)> 
=ymin THEN MOVE -1,ystart1+8.5#yfak 
tor#skal( 2) *#19°z(2) :DRAWA -4,8 

2238 IF ystart<=ymin THEN w=1 ELSE 
MOVE -1,ystart1:DRAWR -6,8:MOVER -4 
2,4:PRINT USING"+#.44" ;ystart*#18°(- 
z(4)); 

2248 ystart=starty+skal( 2) #19°z(2)* 
j:ystarti=yfaktor*( ystart-ymin) 
2258 IF ystart-8.5*skall 2)#19°z(2)< 
=ymax THEN MOVE -1,ystart1i-8.5%*yfak 
tor#skal[ 2)*#198°z( 2) :DRAWR -4,8 

2268 IF ystart>=ymax THEN v=1 ELSE 
MOVE -1,ystart1:DRAWR -6,8:MOVER -4 
2,4:PARINT USING" +#.#4#" ; ystart#1Q°(- 
z(4)); 

2278 IF v=1 AND w=1 THEN RETURN ELS 
E j=-3+1:G0T0 2218 

2288 ’Kein Nulldurchgang y 

2298 IF ROUND( ymin, 1-z(2))<ymin THE 
N starty=ROUND( ymin+skal( 2) #18°z( 2) 
‚I-z(2)) ELSE starty=ROUND( ymin, 1-z 
(2)) 

2308 j=® 

2318 ystart=starty 

2328 IF ystart-8.5*skal( 2)#18°z(2)> 
=ymin THEN MOVE -1,yfaktor*#( ystart- 
8.5%*%skall 2) #18°z( 2)-ymin) :DRAWA -4A, 
a 

2338 WHILE ystart<=ymax 

2348 ystart1=yfaktor*#( ystart-ymin) 39 
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2358 MOVE -1,ystart1:DRAWA -6,8:MOV 
ER -42,4:PRINT USING"”+4.##” ;ystart* 
18°(-z(4)); 

2368 IF ystart+B.5*skal(2)#19"z(2)< 
-ymax THEN MOVE -1,ystart1+8.5%yfak 
tor*skal(2)*#18°z(2) :DRAWA -4,8 

2378 j=j+1:ystart=starty+skal(2)*#18 
“z([2)*J 

2388 WEND 

2398 RETURN 

2488 ’Hardcopy Maschinencode 

2418 MEMORY EABBB-1 

2428 FOR x%=EAB888 TO EABBE:READ byt 
e$:byte$="&"+byte$:POKE x%,VAL(byte 
$) :NEXT x% 

2438 FOR x%=EABBF+288 TO EABBF+231: 
POKE x%,8:NEXT x% 

2448 DATA cd,3f,a8,21,88,f7,86,58,c 
d,18,a8,cd,5d,a8,cd,5d,a8,2c,18,f4, 
cd,52,a8,c9 

2458 DATA e5,dd,21,bf,a8,8e,19,11,b 
a,ff,cd,2b,a8,19,84,28,f9,e1,c9 
2468 DATA e5,c5,86,88,8e,88,7e,dd,? 
7,88,dd,23,7c,91,67,180,f5,c1,e1,c9 
2478 DATA cd,52,a8,3e,1b,cd,a2,a8,3 
e,33,cd,a2,a8,3e,8c,cd,a2,a8,c9 
2488 DATA 3e,1b,cd,a2,38,3e,48,cd,a 
2,88,c9 

2498 DATA e5,c5,cd,97,a8,cd,7d,a8,2 
1,bf,a8,81,e7,88,af,ed,6f,cd,ad,aß, 
cd,ad,a8,23,8b6,78,b1,28,f1,c1,e1,c9 
2508 DATA 3e,1b,cd,a2,a8,3e,4c,cd,a 
2,38,1e,88,80,08,80,3e,82,cd,a2,aß®, 
3e,83,cd,a2,a80,c9 

2518 DATA 3e,8d,cd,a2,a8,3e,®a,cd,a 
2,a8,c9 

2528 DATA f5,cd,2e,bd,38,fb,cd,2b,b 
d,f1,c9 

2538 DATA cd,a2,a8,1d,fa,ba,a®,cb,4 
3,c8,c3,a2,38,1e,82,c3,a2,a0 

2548 RETURN 


KARTEI 


Unser Autor Rudolf Bodinger hat ein Dateiprogramm 
geschrieben, das er etwas untertrieben „Kartei“ ge- 
nannt hat. Denn hinter diesem unscheinbaren Namen 
verbirgt sich ein Programm, das die Herzen aller CPC- 
Benutzer höher schlagen läßt. Es ist ein universell ein- 
setzbares Dateiverwaltungsprogramm mit allen Kenn- 
BO, die man an ein solches Programm stellen 
ann. 
Es ist voll menügesteuert und so komfortabel, daß 
sich eine Beschreibung fast erübrigt. Damit Sie aber 
Lust aufs Abtippen bekommen, hier die Beschreibung: 


BIS ZU 8 FELDER JE SATZ SIND MÖGLICH 


Mit diesem Programm ist es möglich, beliebige Datei- 
en bis zu 8 Felder je Satz zu bearbeiten. Je Feld kön- 
nen bis zu 100 Zeichen eingegeben werden. Bei Über- 
schreitung der 100 Zeichen wird automatisch entspre- 
chend gekürzt. 

Nach dem Programmstart ist es möglich, entweder ei- 
ne alte Datei zu laden oder mit dem Erstellen einer 
neuen zu beginnen. 

Das Hauptmenü und die Eingabemaske, die selbst de- 
finiert werden kann, sind wegen der besseren Über- 
sicht gleichzeitig auf dem Bildschirm sichtbar. 


PROGRAMM LÄUFT AUF ALLEN CPC'’s 


Selbstverständlich können die eingegebenen Daten ab- 

gespeichert werden, und zwar sowohl auf Diskette als 

auch auf Kassette. Das Programm läuft übrigens auf 

allen drei CPC-Typen. Beim Diskettenbetrieb sind 

lediglich die folgenden Zeilen anzupassen: 

Zeile 1350 <REC+PLAY> weglassen 

Zeile 1400 <SPEED WRITE 1> und <“!“> 
weglassen 

Zeile 1490 <PLAY> weglassen 

Zeile 1530 <““!“> weglassen 

Das Programm besitzt natürlich neben einer Sortier- 

routine (die beliebige Felder sortiert), auch eine Such- 

routine, wobei die Eingabe des zu suchenden Strings 

wahlweise in Groß- oder Kleinschreibung erfolgen 

kann. Die Sortierroutine arbeitet nach dem „Quick- 

sort“-Verfahren. Wenn allerdings die Datei schon recht 

umfangreich ist und viele Datenfelder enthält, kann es 

schon mal etwas dauern, bis die Sortierei beendet ist. 

Also nicht ungeduldig werden! 


DIE DRUCKROUTINE IST SEHR KOMFORTABEL 


Die Druckroutine ist ebenfalls ein Leckerbissen. Neben 
der Möglichkeit, die gesamte Datei auszudrucken, kann 
man auch nur bestimmte Datensätze sich ausgeben las- 
sen und bei diesen dann noch bestimmen, ob alle Fel- 
der oder nur bestimmte ausgedruckt werden sollen. 
Außerdem kann normaler oder komprimierter Druck 
ebenso gewählt werden wie der Zeilenabstand (x/12 
Zoll), der linke Rand, Ausgabe der Datensätze neben- 
oder untereinander sowie mit oder ohne Feldüber- 
schrift. 
Falls Sie ein Feld mit „Telefon“ bezeichnet haben, be- 
steht die Möglichkeit, sich eine Telefonliste gesondert 
ausdrucken zu lassen. Das gleiche gilt auch für eine 
Geburtstagsliste. Allerdings müssen dann die entspre- 
chenden Felder die genaue Bezeichnung (,‚Telefon“ 
bzw. „Geboren“) tragen, sonst funktioniert diese 
Sonderausgabemöglichkeit nicht. 
Da das Programm einen deutschen Zeichensatz ent- 
hält, sind auch einige dieser Zeichen im Listing ent- 
halten. Sie finden sie folgendermaßen: äÄ = Klammer 
auf, üÜ = Klammer zu, öÖ = Backslash (Strich von 
links oben nach rechts unten, links neben der rechten 
Shift-Taste), ß/Tilde = Klammeraffe; jeweils mit oder 
ohne Shift. 

(JE) 
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ı18 ° EUEUEUETETITTH TEE IE SEINE IE TEEN IE NEE 


20 ’#* KARTEI * 
3B ’* VON * 
a0 ’* RUDOLF BODINGER #* 
se ’* FUER * 
6a '’* SCHNEIDER AKTIV #* 
78 °'* CPC 464/664/6128 JE* 


88 EEE UEUHHUNUNNURUNNHEER IR 


118% * Variablenliste 
'"s1,ni<definiert Anzahl der Sae 
und Felder> 

"a$li,k)<Satz, Feld> 

"n<Anzahl der erstellten Saetze 


"text$<Menue> 
"te$,tex$<Feldbenennung> 
’t$<vallt$)=Index fuer Suchrout 


"prog$<benennt Programmteil> 
198 ’geb$<Gebutstagliste> 

288 "tel$<lelefonliste> 

218 "s,o,u,1,m,m1,h$,d$<Hilfsvariab 
len fuer Sortierroutine> 

228 "ue$,dr(o),z(m)<Ueberschrift, S 


atz-u. Feldwahl in Druckroutine> 
2308 ” xka$ <Karteiname> 
am ° 


258 CLEAR:BORDER 18:G605SUB 4498’ ---- 
- deutsche Umlaute 
268 MODE. 2:CLS:DEFINT a-z 

278 TAG:MOVE 5,8:DRAWR ®,393:DRAWR 

6308,9:DRAWR 9,-393 

288 MOVE 5,368:DRAWR 638,8 

298 MOVE 116,368:DRAWR 8,-36® 

388 TAGOFF 

318 WINDOW #1,2,14,4,21:WINDOW #2,1 
6,28,4,21:WINDOW#43,29,79,4,21 

328 WINDOW#4,2,14,22,25:WINDUOW#S, 16 
‚79,22,25:WINDOW#6,2,79,2,2 

330 PAPER#4,1:PEN#4,8:PAPER#S,1:PEN 
#5,0 

348 LOCATE#3,5,8:PAINT#3,"Datei ers 
tellen oder laden? (e/1l)" 

358 x$=INKEY$:IF x$<>"e"AND x$<>"1" 
THEN 358 

368 IF x$="1"THEN CLS#3:G0OSUB 1478: 
GOTO 598 

378 CLS#3:prog$=" * #* #* Programmtei 
l: Datei erstellen *# #* # ":6G0SUB 42 
69 

388 CLS#5:LOCATE#5, 18,3: INPUT#S, "Wi 
e soll Ihre Datei hei’en"”;ka$ 

398 Cı.S#45:LOCATE#5S,14,3:INPUTAS, "Wi 
eviele Sttze soll Ihre Datei fassen 
"I: 

a88 CLS#5:LOCATE#S, 12,3: INPUT#S, "Wi 
eviele Felder pro Satz? (hichstens 


418 IF n1>8 THEN CLS#5:LOCATE#5, 10, 
3:PARINT#5,”Hlichstens 8 Felder migli 
ch."CHR$(7): FOR i=1 TO 2888:NEXT:C 
LS#5:GOTO 488 

a28 DIM a$ls1,n1),te$(n1) 

438 CLS#5:LOCATE#5,18,2:PRINT#5, "Be 
nennen Sie die Felder 1";-n1 

448 1LOCATE#5, 18,4:PRINT#S, "Wortl{ng 
e nicht }ber 18 Zeichen!” 

458 FOR i=1 TO n1:LOCATE#2,2,(i*#2)- 
1:LINE INPUT#2,te$(i) 

468 IF LEN(te$(i))>18 THEN te$(i)>=L 

EFT$Lte$li), 18) 

478 tex$(i)=te$li) +STRAING$L 18-CLEN( 
te$li))),”.")+":":NEXT 

488 C1LS#5:LOCATE#5,5,2:PRINT#S,"Fel 

dbenennung OK? (j/n) <<Korrekturml 
glichkeit>>" 

498 x$=INKEY$:IF x$<>" j"AND x$<>"n" 
THEN 498 

Sa8 IF x$="j"THEN 598 

519 CLS#5:L.0CATE45,5,2:PRINT#5,"Wel 

ches Feld korrigieren? ( 1”;-n1;")" 
528 x$=INKEY$:IF x$=""THEN 528 

538 IF VAL(x$)<1 OR VAL(x$)>ni THEN 
PRINT CHA$( 7) :GOTO 528 

5a90 i=VAL(x$) :LOCATE4S5,5,4:PRINT#S, 
"Feldnamen eingeben!"”;:LINE INPUT#S 
‚te$(i) 

558 IF LENLtEe$Li))>1A THEN te$li)=L 
EFT$(te$(i),1®) 

569 tex$li)=te$l i) +STAING$L 1A8-CLEN( 
te$li))),".")+":" 

578 LOCATEF42,2,(i*2) -1:PAINT#2,STRAI 

NG$( 18,” ”) 

588 LOCATE#2,2,(i*2)-1:PRINT#2,te$( 
i):GOTO 488 

598 DIM dr(s1) ,d$(s1),z{n1),o(28),u 

(29) 

688 CLS#2:FOR i=1 TO n1:LOCATEA2,2, 

(i#*2-1) :PRINT#2,tex$(i) :NEXT 

618 RESTORE 4418:FOR i=1 TO 8:READ 
text$(i) 

628 LOCATE#1,2,(i*#2-1) :PRINT#1,text 
$(i) :NEXT 

638 prog$=-" * * # Programmteil: 
ue #* #* #* ":GOSUB 4268 

648 CLS#3:CL5#44:CL$S#5 

65A LOCATEFA,2,2 

668 PRINT#4,"Anzahl der"”:LOCATE#4,2 
‚4:PAINT#f4,"Saetze=";n 

678 LOCATE#1,4,17:PAINT#1,"Frei ";: 
PRINT#1,USING"AH#H" ; si-n 

688 t$=INKEY$:IF t$<"1" OR t$>"8" T 
HEN 688 

6958 ’###:# Menuewahl #F#### 

788 ON VAL (t$) GOTO 728,948, 1178, 1 

278, 16108,2160,4298,4198 

718 "###8%# Dateneingabe *#####* 


Men 


8!)",n1 728 prog$=-" * #* #* Programmteil:Date » 
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neingabe * # %# ”:GOSUB 4268 

738 IF n<s1i THEN 768 ELSE 748 

748 CLS#5:LOCATE#5,15,3:PRINT#5,"” * 
# # Der Speicher ist voll! * # *"C 
HR$C 7?) 

758 FOR j=1 TO 2888:NEXT:GOTO 638 
768 n=n+1:i=n 

778 LOCATE#5,3,2:PRINT#5,”"Bitte Dat 
en eingeben. Fuer Abbruch * + ENTER 
druecken."” 

788 FOR k=1 TO ni 

798 IF te$(k)="Telefon"OR te${k)="G 
eboren"THEN LOCATE#5,5,4:PRINT#S,"”B 

ei Telefon- oder Geburtsdaten nur Z 
ahlen eingeben”:GOTO 818 

888 NEXT 

818 FOR k=1 TO ni 

828 CLS#4:LOCATE #4,2,2:PRINT#4,USI 
NG" ##4#.” ;n; :PRINTf4,” Satz”:LOCATE#F 

4,2,4:PARINT#4 ,USING"##4.";k; :PRINT# 
4,” Feld" 

838 LOCATE #3,1,1+2#{(k-1) :LINE INPU 
T #43,a$(i,k) 

848 IF a$(i,k)="""THEN n=n-1:60T0 6 
48 

858 IF a$li,k)=""THEN a$(i,k)=" ":G 
0TO 918 

868 IF LEN(a$li,k))>188 THEN a$li,k 
)=LEFT$(a$(i,k), 188) :LOCATE #3,1,1+ 

2#kK :PAINT#3,STAING$( 156," "”) 

878 IF te$(k)<>"Telefon"”AND te$(k)< 
>"Geboren"”THEN 918 

888 IF te$(k)="Telefon"THEN a$(i,k) 

="Tel.: "+a$(i,k):GOTO 918 

898 IF te$(k)="Geboren"AND LEFT$( a$ 

(i,k),1)<CHA$(AB) OR te$lk)="Gebore 
n"AND LEFT$(Ca$(i,k),1)>CHA$(58) THE 

N a$(li,k)="":GOTO 918 

988 a$li,k)="Geb.: "+a$li,k) 

918 NEXT 

928 GOTO 648 

938 ’"##### Daten suchen ##### 

948 prog$=" * = * Programmteil: 

en suchen # * # ":G0SUB 4268 

958 LOCATE #5,5,2:PRINT #5, "Suchen 

nach Kennziffer: ( 1"”;-n1;” eingeb 

en )" 

968 LOCATE 45,5,4:PRINT #5,"Fuer Ab 

bruch LEERTASTE druecken." 

978 t$=INKEY$:IF t$=""THEN 978 

988 IF t$="” "”THEN 638 

998 IF VALLt$)<1 OR VAL(t$)>ni THEN 
CLS#5:LOCATE %#5,28,3:PAINT#5,"Fals 

che Eingabe"CHRA$( 7) :FOR j=1 TO 1588 
:NEXT:CLS#5:GOTO 958 

1888 kK=VAL(t$) 

1818 CLS45:LOCATE %#5,5,2:PRINT#4S,"”S 
uchbegriff ?" 

1828 LOCATE #5,19,2:LINE INPUT #5,t 

$ 


Dat 


1838 FOR i=1 TO n’----Suchen des Te 
ils----- 
1848 such$=UPPER$Ca$li,k)) :t$=UPPER 


$lt$) 

1858 IF INSTA( such$,t$)<>B® THEN 189 

8 

1868 CLS#3:NEXT i 

1878 CLS#45: LOCATE #5,15,3:PRINT#S, 
”"# % # Suchwort nicht gefunden! # # 
#"CHA$( 7) 

1888 FOR j=1 TO 15898:NEXT:GOTO 638 
1898 FOR 1i=1 TO n1:LOCATE #3,1,1+2 

&( l1i-1) :PRINT#3,a$(i,1i) :NEXT 

1188 CLS#4:L0OCATE #4,2,2:PRINT#4,US 
ING”##44."”;i;:PRINT#A4," Satz" 

1118 LOCATE #5,5,4:PRINT#5,"Ist es 

der gesuchte Satz? (j/n)" 

1128 y$=INKEY$:IF y$<>"j"AND y$<>”"n 
"THEN 1128 

1138 IF y$="n"THEN 1968 

1148 GODOSUB 3468 

1158 IF x$="b"THEN bb=i+1:CL5 #3:60 
TO 1188 

1168 ’*####%# Blaettern ##### 

1178 bb=1:prog$=" * #* # Programmtei 
1: Datei blaettern *# * # ":GOSUB 42 

68 

1188 FOR i=bb TO n 

1198 IF i>n THEN 1248 

1288 CLS#4:LOCATE #4,2,2:PRINT#F4,US 
ING"##4#.";i; :PRINTf4," Satz” 

1218 FOR k=1 TO n1:LOCATE #3,1,1+2%* 

(k-1) :PAINT#3,a$(i,k) :NEXT k 

1228 GUSUB 3468 

1238 CLS #3:NEXT i 

1248 CLS#5:LOCATE#5,21,3:PRINT#5,"* 
# #* Datei-Ende! # #* #"CHA$L7) 

1258 FOR j=1 TO 2888:NEXT 3j:G0TO 63 

L.) 

1268 "####%# Speichern ##### 

1278 prog$=" * * #* Programmteil: Da 
ten speichern # # # ":G0SUB 4268 
1288 CLS45:LOCATEA45,17,3:PRINT#5,”F 

uer Abbruch LEERTASTE druecken"” 
1298 LOCATE#3,7,5:PRINT#3,"Datei um 

benennen? ( j/n)"” 

1388 x$=INKEY$:IF x$<>" J"AND x$<>"n 
"THEN 1388 

1318 IF x$="n"THEN 1348 

1328 LOCATE#3,7,7:PAINT#3, "Neuen Na 

men eingeben!” 

133@8 LOCATE#3,7,9:LINE INPUT#3,ka$ 
1348 CLS#3:LOCATE43,7,5:PRINT#3, "Da 
tentr{ger bereitstellen" 

1358 LOCATE #3,7,7:PRINT#3, "REC+PLA 
Y und ENTER druecken."” 

1368 x$=INKEY$:IF x$=""THEN 1368 
1378 IF x$=" "THEN 638 

1388 CLS#3:CLS#5:LOCATE #5, 15,2:PRI 

NT#5,"Datei <<";ka$;”>> wird gespei 
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chert.” 

1398 GOSUB 4158 

1488 SPEED WRITE 1:0PENOUT ”!"+ka$ 
1418 WRITE #9,s1;n1,n,ka$ 

1428 FOR i=1 TO n1:WRITE #9,te$(i), 
tex$(i) :NEXT 

1438 FOR i=-1 TO n 

1448 FOR k=1 TO n1:WRITE #9,a$(li,k) 
:NEXT : NEXT 


1458 CLOSEOUT:GOTO 638 
1468 #848 Laden ###t# 


1478 prog$=" * # # Programmteil: Da 
ten laden # # # ":GOSUB 4268 

1488 1.LOCATE #3,4,8:PRINT#3,"Stellen 
Sie Datentr{ger bereit!" 

1498 LOCATE #3,4,18:PRINT#3, "Kennwo 
rt eingeben, PLAY u. ENTER druecken 
sg" 

1588 LOCATE #3,4,12:LINE INPUT#3,ka 
$ 

1518 CLS#3:CL545:L0OCATEF45,22,2:PAIN 
T4#5,"Datei wird geladen." 

1528 GOSUB 4158 

1538 OPENIN "!"+ka$ 

1548 INPUT#9,s1,n1,n,ka$:DIM a$(si, 
n1),te$(n1),tex$(n1) 

1558 FOR i=1 TO n1:INPUT#9,te$(i),t 
ex$( i) :NEXT 

1568 FOR i=1 TO n:FOR k=1 TO n1:INP 
UT49,a$li,k) :NEXT:NEXT 

1578 CLOSEIN:CLS#3:LOCATE 43,5, 18:P 
RINT#3,"Sie haben Datei <<";ka$; ">> 


geladen" 

1588 FOR j=1 TO 3888:NEXT 
1598 RETURN 

1608 ’##### sortieren #FH### 


1618 prog$=" * # #* Programmteil: Da 
ten sortieren *# * %* ":605UB 4268 
1628 CLS#5:LOCATE#5, 18,2:PRINT#5,"”N 
ach welchem Feld soll sortiert werd 
en?" 

1638 LOCATE#S5,18,4:PRINT#5,”Fuer Ab 
bruch LEERTASTE druecken" 

1648 x$=INKEY$:IF x$=""THEN 1648 
1658 IF x$=" "THEN 638 

1668 IF VALLx$)>ni THEN 1648 

1678 mi=VAL(x$) :IF te$(m1)="Telefon 
"THEN x$="":CLS5#5:L0OCATE#5,5,3:PRIN 
T#5,"Telefon-Nummern werden nicht s 
ortiert";CHRA$(7) :FOR j=1 TO 2888:NE 
XT:GOTO 638 

1688 IF te$(mi1)="Geboren"”THEN sort= 
1:G0T0O 2938 

1698 CLS#5:L0OCATE #5,21,2:PRINTAS,"” 
Daten werden sortiert.” 

1788 GOSUB 4158 

1718 FOR i=1 TO n:FOR k=1 TO n1:d$( 
i)=a$(i,mi):IF qq=1I THEN 1748 

1728 IF VAL(LEFT$CA$CI),1I))<>B OR V 


E qq=-8:G0T0 1748 

1738 NEXT 

1748 NEXT 

1758 s=1:0(1)=1:u( 1)=n 

1768 1l=o(s) :r=u(s) :s=s-1 

1778 i=1:j=r:h$=d$((1+r)/2) 

178@ IF qq=® THEN 1828 

1798 WHILE VAL(d$Li))<VALCh$) AND i 
<r:i=i+1:WEND 

1888 WHILE VAL(d$CJ))>VALCh$) AND J 
>1:34=3j-1:WEND 

1818 GOTO 1848 

1828 WHILE d$Li)<h$ AND i<r:i=i+1:W 
END 

1838 WHILE d$CJ)>h$ AND j>1:3=3j-1:W 
END 

1848 IF i<=j THEN d$=d$(i) :d$li)=d$ 
( 3) :d$( j)=d$:G0OTO 1868 

1858 GOTO 1888 

1868 FOR k=1 TO n1:a$lm,k)=a$li,k): 
a$li,k)=a$( J,k) :a$( jJ,k)=a$lm,k) :NEX 
7 

1878 i=i+1:3j=3-1 

1888 IF i<=j THEN 1788 

1898 IF r-i<=j-1 THEN 1928 

1988 IF 1<j THEN s=s+1:0(s)=1l:u(s)= 
J 

1918 1=-1:60T0 1948 

1928 IF i<r THEN s=s+1:0(s)=i:u(ls)= 
r 

1930 r=3 

1948 IF r>1l THEN 1778 

1958 IF s>® THEN 1768 

1968 FOR m=1 TO n:FOR k=1 TO n1i:i=m 
:a$(i,k)=a$lm,k) 

1978 NEXT :NEXT 

1988 m=8:qq=2:DUMMY=FRE(L""):IF geb$ 
="Geb.: "THEN RETURN 

1998 GOTO 638 

208088 ’####3# Loeschen ##### 

2818 FOR k=1 TO n1:a$li,k)="#":NEXT 
2828 CLS#5:LOCATE#5,6,2:PRINT#5, "Sa 
tz”;(i);” gellscht. Die }brigen Sft 
ze r}cken nach."”:G0OSUB 4158 


2838 ii=i-1:x=1:FOR i=1 TO n:FOR k= 
1 TO ni 

2848 IF a$li,k)<>"#"THEN ix=1 

2858 IF ix=1 THEN a$(x,k)-a$l(i,k) 
2868 NEXT 

2878 IF ix=1 THEN x=x+1 

2888 ix=® 

2898 NEXT 


2188 n=x-1:FOR x=1 TO n:i=x 
2118 FOR k=1 TO n1:a$li,k)=a$lx,k): 
NEXT :NEXT 

2128 LOCATE#4,2,2:PRINT#4,"Anzahl d 
er":LOCATE#4,2,4:PAINT#4,"Saetze="; 
i 

2138 LOCATE#1,4,17:PAINT#1,"Frei "; 


:PRINT#1,USING"###" ;s1-n » 
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2148 i=-ii:DUMMY=FRE( ”"”) :RETURN 

2158 ’##### Drucken ##### 

2168 prog$="” * # # Programmteil: Da 
ten drucken * #* #* ":GOSUB 4268 

2178 LOCATE#5,5,2:PRINT#5S, "Druckmen 
ue: Datei-1 Abbruch=2" 

2188 FOR j=1 TO n1:IF te$( j)="Telef 
on"”THEN LOCATE#5,5,4:PRINT#5,”Telef 
onliste=3":G0TO 22988 

2198 NEXT 

2288 FOR 3j=1 TO n1:IF te$( j)="Gebor 
en"”THEN LOCATE#5,28,4:PRINT#5, "Gebu 
rtstagliste=4":G0T0 2228 

2218 NEXT 

2228 x$=INKEY$:IF x$<”1"OR x$>"”A"”TH 
EN 2228 

2238 ON VAL(x$) GOTO 2240,6390,2748, 
2938 

2248 GDSUB 3828’ ----- 


Druckroutine 


Druckereinst 
ellung ----- 
2268 CLS#5:LOCATE #5,22,2:PRINT#5,” 


Daten werden gedruckt.” 


2278 GOSUB 41598 

2288 IF ue$<>""THEN PRINT#8,ue$:PRI 
NT#B 

2298 IF h$="u"THEN 2688 

2389 ’###3# FORMATIEREN ##### 

2318 FOR i=1 TO n:o=i:IF dr(o)=® TH 


EN 2369 

2328 FOR k=1 TO ni:m=k:IF z{(m)=8 TH 
EN 2358 

23380 IF num( m) <=(LEN([te$(kK))+2) THE 
N num({ m) =(LEN( te$(k)) +2) 

2348 IF num(m)<=(LEN(a$li,k))+2) TH 
EN num( m) =(LEN(a$(i,k)) +2) 

2358 NEXT k 

2368 NEXT i 

2378 g=1:FOR m=1 TO n1:IF z(m)=8 TH 
EN 2398 


2388 f(g) =num(m) :g=g+1 

2398 NEXT 

2408 

2418 sp=8:la=8:FOR g=1 TO g:IF g=1 
THEN sp=1 ELSE sp=sp+f(g-1) 


24208 
2438 

2448 
2528 

2458 IF 1a>(88-l1in) AND p$="n"THEN 
24708 

2468 GOTO 2548 

2478 CLS#45:LOCATEA5,5,2:PRINT45,"No 
rmaldruck passt nicht in eine Zeile 


sp(g)=sp 
NEXT: la=sp-3 
IF 1a>( 137-lin) AND p$="kK"”THEN 


2488 LOCATE#5,5,4:PRINT#5,"Wollen S 
ie Ausdruck komprimiert? (3j/n)” 
2498 x$=INKEY$:IF x$<>"” j"AND x$<>"n 
"THEN 2498 


2588 IF x$="n"THEN 2728 

2518 PRINT#8,CHRA$( 15) ; :WIDTH 137-1li 
n:p$="kK":GOTO 2448 

2528 CLS#5:LOCATE#5,5,2:PRINT#S, "Au 
sdruck passt nicht in eine Zeile" 
2538 PRINT CHA$(7) :FOR j=1 TO 2888: 
NEXT :GOTO 2728 

2548 IF fel$="o"THEN 2688 

2558 g=1:FOR k=1 TO n1:m=k 

IF z(m)=8 THEN 2588 
PRINT#8,TAB( sp{g))te$(Ck);:g=-g+ 


NEXT ::PRINT#8 
PRINT#8,TAB( sp( 1) )STRING$(L la," 


FOR i=1 TO n:o=i:g=1 

IF dr(o)=8 THEN 2688 

FOR k=1 TO n1:m=k 

IF z(m)=-8 OR a$li,k)=""THEN 26 


2648 IF h$="u”"AND a$li,k)<>"” ” THEN 
PRINT#8,a$(i,k) :GOTO 2668 

2658 IF h$="n" THEN PRINT#B, TAB( sp( 
g))a$li,k);:g-g+i 

2668 NEXT 

2678 PRINT#B 

2688 NEXT 

2698 CLS#3:CL5#5:LOCATE#5,16,3:PRIN 
T#45,"Denselben Ausdruck nochmal? (j 
/n)” 

2788 x$=INKEY$:IF x$<>"j"AND x$<>"n 
"THEN 2788 

2718 IF x$="3j"THEN 2268 

2728 m=8:m1=8:f(g)=98:p$="":f$="":fe 
1$="":h$="":G0TO 638 

2730 "##### Telefonliste ###%## 

2748 FOR i=1 TO n1:IF te$(li)="Telef 
on"”THEN 2778 

2758 NEXT:CLS#5:LOCATE #5,28,3:PRIN 
T CHR$C7) :PRINT#45, "Dieses Feld ist 
nicht vorhanden.” 

2768 FOR 3j=1 TO 1588:NEXT:CLS#5:GOT 

0 638 

2778 tel$="Tel.: ":GOSUB 3548 

2788 CLS#5:LOCATE #5,28,2:PRINT#5,"” 
Tel.-Liste wird gedruckt.” 

2798 GOSUB 4158 

2888 IF ue$<>""THEN PAINT#8,ue$:PRI 
NT#8B 
2818 
2828 
2830 
2858 

2848 GOTO 2878 

2858 aa$=MID$La$li,k),7) :b=>LEN( aa$) 
:IF (a+b)>39 THEN 2888 

2868 PRINT#8,a$(i,1);STAING$L(AB-(Ca 
+b)),”.");aa$ 

2878 NEXT 

2888 NEXT :CLS#3:CL5#5:LOCATE#5, 16,3 


FOR i=1 TO n:FOR k=1 TO ni 
a=LEN(a$(i,1)) 
IF LEFT$Ca$li,k),6)=tel$ THEN 
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:PAINT4#5,"Denselben Ausdruck nochma 
12. 03/03” 

2898 x$=INKEY$:IF x$<>"3j"AND x$<>"n 
"THEN 2898 

2908 IF x$="3j"THEN 2808 

2918 tel$="":G0TO 6308 

2928 ’##### Geburtstage *#### 

2938 FOR i=1 TO n1:IF te$(i)="Gebor 
en"THEN 2968 

2948 NEXT:CLS#S:LOCATE #5,28,3:PRIN 
T CHA$( 7) :PRINT#ZS, "Dieses Feld ist 
nicht vorhanden.” 


2959 FOR j=-1 TO 1580:NEXT:CLS#5:60T, 


0 638 

2968 CLS#5:L0OCATE 4#5,5,2:PRINT#5,"”D 

aten mit oder ohne Jahreszahl? (m/o 

2978 g$=INKEY$:IF g$<>"m"AND g$<>"o 
"THEN 2978 

2988 qq=1:geb$="Geb.: 
n:FOR k=1 TO ni 

2998 IF LEFT$Ca$li,k),6)<>geb$ THEN 
3958 

3088 mi=kK:an$=MID$la$l i,k),7) :a=INS 
TAlan$,"”.") :a1$=LEFT$CLan$,a) :an1$=M 
Io$l an$,a+1) 

3818 ai=INSTAlLan1$,"”."”) :a2$=LEFT$La 
n1$,a1) :a3$=MID$(l an1$,a1+1) 

3a?» IF LEN(a1$)=2 THEN a1$="8"+a1i$ 
3038 IF LEN(a2$)=2 THEN a2$="8"+a2$ 

39848 a$li,mi1)=-a2$+a1$+a3$:GOTO 3968 
3858 NEXT 

39068 an$="":an1$="":NEXT 


":FOR i=1 TO 


3878 GOSUB 1699:IF sort=1 THEN 3138 
s3a80 

3898 GUSUB 3548 

3188 CLS#5:LOCATE #5,28,2:PRINT#S,"” 


Geb.-Liste wird gedruckt.” 

3119 GNOSUB 4158 

3128 IF ue$<>""THEN PRINT#8,ue$:PRI 
NI#8 

3138 FOR i=1 TO n:FOR k=1 TO mi 
3148 IF k<mi THEN NEXT 

3158 IF k=m1 AND a$li,k)=""THEN 319 
8 

3168 an$=a$(i,m1) :a1$=LEFT$(an$,3): 
32$=MID$( an$,4,3) :33$=MID$(l an$,7) :a 
$li,m1)=a2$+a1$+a3$ 

3178 IF sort=8 AND g$="m” THEN PRIN 
T#8, LEFT$(La$li,m1),6) ;STAING$C 10-L 
ENCa$li,mi)) ,"-");a3$;"” ";a$li,1):6 
0TO 3198 

3188 IF sort=8 AND g$="0o" THEN PRIN 
T#8, LEFT$Ca$li,m1),6);” ";a$li,1) 
3198 NEXT:IF sort=1 THEN 3238 

3288 CLS#3:CL5#45:L0OCATE#5S,16,3:PRIN 
T45,"Denselben Ausdruck nochmal? (j 
/M)" 

3218 x$=INKEY$:IF x$<>"j"AND x$<>"n 
"THEN 3218 


3228 IF x$="j"THEN 3128 

3238 FOR i=1 TO n:FOR k=1 TO n1:IF 
k=mi THEN 3258 

3248 NEXT 

3258 IF a$li,mi)<>""THEN a$l(i,mi)=g 
eb$+a$( i,mi) 

3269 NEXT 

3278 geb$="":sort=8:G0TO 638 

3288 ’*#*#### Daten aendern ##### 
3298 prog$=" * * #* Programmteil:Dat 
en aendern * #* # ":GOSUB 4268 

3388 CLS#5:L0CATE #5,5,2:PRINT#5,"W 
elches Feld? ( 1"”;-n1;"” eingeben |! 


3318 LOCATE #5,5,4:PRINT#5,"Fuer Ab 

bruch LEERTASTE druecken" 

3328 x$=INKEY$:IF x$=""” THEN 3328 
3338 IF x$=" "THEN 638 

3348 IF VALLx$)<1I OR VAL(Lx$)>ni THE 

N CLS#5:L0CATE #5,28,3:PRINT#5,"”Fal 
sche Eingabe"”CHR$( 7) :FOR j=1 TO 158 

8:NEXT:GOTO 3388 

3358 k=VAL(x$) 

3368 CLS#4:LOCATE #4,2,2:PRINTA4,US 
ING” ###.";i;:PAINT#4," Satz":LOCATE 

#4,2,4:PAINT#4,USING"##4#4.";k; :PRINT 

44," Feld" 

3378 a$li,k)="":CLS#5:LOCATE 45,5,2 
:PAINT#5, "Aenderung Eingeben! " 

3388 IF te$(k)="Telefon"OR te$(k)=" 

Geboren"THEN LOCATE #5,5,4:PRINT#S, 
"Bei Telefon- oder Geburtsdaten nur 
Zahlen eingeben" 

3398 LOCATEA43,1,17:LINE INPUT #3,a$ 

(i,k) 

3395 IF a$li,k)="" THEN a$li,k)=" " 
:GOTO 3448 

3488 IF LEN(a$li,k))>188 THEN a$li, 
k)=LEFT$Ca$(li,k), 100) 

3418 IF te$(k)="Telefon"AND a$li,k) 
<>""THEN a$li,k)="Tel.: "+ta$li,k):6 

0OTO 3448 

3428 IF te$(k)="Geboren"AND LEFT$(a 

$li,k),1)>CHA$LAFT)AND LEFT$CAa$Ci,Kk) 
‚„1) <CHA$CS8) THEN a$li,k)="Geb.: "+a 

$li,k) :G0TO 3448 

3438 IF te$(k)="Geboren"AND LEFT$(a 

$li,k),1)<CHA$(AB)OR te$lkK)="Gebore 

n"AND LEFT$(a$lLi,k), 1) >CHA$C 57) THEN 
a$gli,k)="" 

3448 CLS#3: FOR k=1 TO n1:LOCATE #3 
‚1, 1+2%8(k-1) :PRINT#3,a$(i,k) :NEXT 

3458 ’###3## Kleines Menue ##### 
3468 CLS45:L0OCATE #5, 15,2:PRINTA5," 

ME N U E = Leertaste” 

3478 LOCATE #5,15,4:PRINT#5, "Aender 

n=a / Blaettern=-b / Loeschen=1" 
34808 x$=INKEY$:IF x$<>"a”AND x$<>"b 
"AND x$<>"1"AND x$<>" "AND x$<>"h"T 
HEN 3488 
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3498 
3588 

3518 
N 

3528 IF x$=" "THEN 638 

3539 ’##### Druckersteuerung F#### 

3548 GOSUB 4168 

3558 CLS#5:L0CATE45,5,2:INPUT45S,"”Dr 

ucker einschalten und Zeilenvorschu 
b eingeben! ";ze 

3568 CLS#3:CL5#45:IF ze=®B THEN 638 
3578 PRINT#8,CHR$( 27) +"A”+CHR$( ze); 
'#+%#+# Zeilenvorschub 

3588 LOCATE#5,5,2:PRINT#5,"Druck ko 

mprimiert oder normal? (k/n)” 

3598 p$=INKEY$:IF p$<>"n"AND p$<>"k 
"THEN 3598 

3688 IF p$="kK"THEN PRINT#8,CHRA$C 15) 
;:G0TO 3628 ’%*+#+# komprimiert ein 

3618 CLS#3:PRINT#8,CHR$( 18); ’#+#+# 
komprimiert aus 

3628 CLS#5:L0OCATE#5,5,2:INPUT#5,"Li 

nken Rand eingeben! ";lin ’#+#+# li 

nker Rand 

3638 PRINT#8,CHRA$( 27) ;"1”";CHA$( lin) 


IF x$="a”THEN 3298 
IF x$="b"” THEN RETURN 
IF x$="1"THEN GOSUB 2818:RETUR 


’ 

3648 CLS#5:IF geb$="Geb.: 
"Tel.: "THEN 3728 

3658 LOCATE#5,5,2:PAINT#5,"Felder n 
ebeneinander oder untereinander ?(n 
Ju)" 

3668 LOCATE45,5,4:PRINT#5,"F}r Abbr 
uch Leertaste dr}cken" 

3678 h$=INKEY$:IF h$<>"n"AND h$<>"u 
"AND h$<>" "THEN 3678 

3688 IF h$=" "THEN 638 

3698 IF h$="u”THEN 3728 

3788 CLS#5:L0OCATE#5,5,2:PRINTAS, "Mi 
t oder ohne Feld}berschrift? (m/o)" 
3718 Fel$=INKEY$:IF Fel$<>"m”"AND fe 
1$<>"o"THEN 3718 

3728 IF p$="K"THEN WIDTH 137-1lin EL 
SE WIDTH 88-lin’*+#+# Zeilenlaenge 

begrenzen 

3738 CLS#3:CLS45:L0CATE#5,5,2:PRINT 
#5,"Wollen Sie eine Ueberschrift? ( 
3/n)" 
3748 

"AND 


"OR tel$= 


x$=INKEY$:IF- x$<>" J"AND x$<>"n 
x$<>”" "THEN 3748 

3758 IF x$=" "THEN 638 

3768 IF x$="n"THEN 3888 

3778 GOSUB 4168 

3788 LOCATE #5,5,3:PRINT#S,"Uebersc 
hrift eingeben" 

3798 LOCATE #5,5,4:INPUT#5,ue$:G60TO 
3818 

3888 ue$=-"" 

3818 CLS#3:CL54#5 :RETURN 

38298 ’####%# Druckabfrage *#####* 

3838 FOR i=1 TO n:o=i:dr(o)=8:FOR k 


=1 TO n1:m=k:z([ m) =8:num( m) =8:NEXT:N 
EXT 

3848 CLS#5:L0OCATE #5,5,2:PRINT45,"A 
lle S{tze drucken? ( j/n)" 

3858 x$=INKEY$:IF x$<>"3j"AND x$<>"n 
"THEN 3858 

3868 IF x$="n"THEN 3888 

3878 FOR i=1 TO n:o=i:dr(o)=1:NEXT 
3875 FOR k=1 TO n1:L0CATE #3,1,1+2* 
(k-1) :PAINT#3,a$( 1,k) :NEXT:GOTO 481 
1) 

3888 CLS#5:FOR i=1 TO n:o=i 

3898 CLS#3:CLS#4:L0OCATE #44,2,2:PRIN 
T#4 ‚USING"##4.";i;:PRINT#4," Satz" 
3988 FOR k=1 TO ni 

391@® LOCATE #3, 1,1+2*{k-1) :PAINT#3, 
a$li,k) :NEXT 

3928 LOCATE#5,5,2:PRINT#5,"Drucken 
? (3/n) --- Sie haben ";dro;” Saetz 
e bis jetzt” 

3938 LOCATE#5,5,4:PRINT#5,"<<Nichts 
mehr drucken=LEERTASTE>>" 

3948 x$=INKEY$:IF x$<>"n"AND x$<>"j 
"AND x$<>"” "THEN 3948 

3958 IF x$=" "THEN 4818 

3968 IF x$="n"THEN 3998 

3978 dro=dro+1:LOCATE#5,58,4:PRINT# 
S,dro 

3988 dr(o0)>=1 

3998 NEXT i 

a000 "*##8%#%# Zweite Druckabfrage *#** 
#4 

au18 CLS#4:CLS45:LOCATE 45,5,2:PRIN 
T#45,"Alle felder drucken? ( j/n)"” 
4928 x$=INKEY$:IF x$<>"J"AND x$<>"n 
"THEN 4828 

4838 IF x$="n"THEN CLS#5:G0OTO 4858 
4848 FOR m=1 TO n1:z(m)=1:NEXT:GOTO 
4138 

4858 FOR m=1 TO ni 

4868 CLS#5:L0CATE #5,5,2:PRINT#5,"F 
eld ";m;"”drucken ? ( j/n)” 

4878 LOCATE #5,5,4:PRINT#5,"”<<Keine 
weiteren Felder drucken=-Leertaste> 
>" 

4888 x$=INKEY$:IF x$<>"n"AND x$<>"J 
"AND x$<>"” "THEN 4888 

4898 IF x$="n"AND m>n1 THEN 4138:EL 


:SE IF x$="n"THEN 41208 


4188 IF x$=" "THEN 4138 

4118 z(m)=1 

4128 NEXT m 

4138 dro=8:RETURN 

4148 "tt Anweisungen #FHHE## 

A1SB LOCATE #5,28,4:PRINT45,"* * * 

Bitte warten! * * #*":RETURN 

4168 CLS#3:LOCATE#3, 18, 14:PRINT#3,"” 
Nach Eingabe Entertaste druecken!"” 

4178 LOCATE#3,18,16:PRINT#3,”"Fuer A 
bbruch nur ENTER druecken!"” :RETURN 
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4188 

er 

4198 prog$=" * #* * Programmteil:Dat 

en loeschen * *#* * ":GOSUB 4268 

4208 CLS#5:ant$="#####%# Wollen Sie 
wirklich alle Daten loeschen? ( j/n 
) zenane" 

4218 GOSUB 4358 

4228 IF x$="n"THEN 4258 

4238 FOR i=1 TO n:FOR k=1 TO n1:a$l 
i,k)="":NEXT:NEXT 

4248 i=9:k=8:n=® 

4258 GOTO 638 


"##### Alle Daten loeschen ### 


4268 CLS#6:LOCATE#6,(78-(LENprog$). 


))/2,1:PRINT#6,CHR$( 24) ;prog$; CHA$( 
24) 

4278 RETURN 

4288 ’##### Programm beenden ####% 

4298 CLS#5:ant$="###### Wollen Sie 

das Programm wirklich beenden? ( j/n 
) een" 

4388 GOSUB 4358 

a318 IF x$="n"THEN 638 

4328 MODE 1:LOCATE 2,18:PRINT"Neue 

Datei erstellen oder bearbeiten?":G 
0SUB 4389 

4a338 IF x$="n"THEN END 

4348 GOTO 258 

4358 LOCATE#5,2,3:FOR i=1 TO LEN(an 
t$) :PRINT#5,MIO$(ant$,i,1); 

4368 FOR j=1 TO 28:NEXT:NEXT:INK 1, 
26,2 

4378 FOR i=1 TO 2888:NEXT:INK 1,26 

4388 x$=INKEY$:IF x$<>"j"AND x$<>"n 
"THEN 4380 

4398 RETURN 

4488 END 

4418 DATA 
4428 DATA 
4438 DATA 
4448 DATA 
4458 DATA 
44608 DATA 


"Eingabe..:1” 
"Suchen...:2” 
"Blaettern:3” 
"Speichern:4"” 
"Sortieren:5" 
"Drucken..:6” 

4478 DATA "Beenden..:’?" 

4488 DATA "Loeschen.:8” 

4498 SYMBOL. AFTER 98 

45898 SYMBOL 91,8X1811819,8X111180,6& 
X11BD119,EX11BA118,EX11111190,EX1108 
110,EX1188110,6xX®8 

4518 SYMBOL 92,8X181118198,6X1181108 
‚EX11IBBB11B,EX11BBB118,EX11009119,6& 
X1191109,EX1110008,6X8 

4528 SYMBOL 93,8X1188118,6X8,6X1108 
118,EX1100118,EX1199118,EX1108110,6& 
X1111908,6Xa 

4538 SYMBOL 123,6X19881800,6X8,6X111 
10808, 6X1108,E6X11111908,EX1198811908,6X 
11198119,EX8 

4548 SYMBOL 124,6X1908188,6X9,6X%X1111 
09,EX11BB119,EX11OB119,EX110B110,EX 


e* 121 


111100,6xX0 

4558 SYMBOL 125,6X1888100,6X8,6X118 
0118,6X1108110,6X1100118,6X1100110, 
EX111110,6X8 

4568 SYMBOL 126,6X111080,6X1101108, 
EX1101100,6X1101100,6X1100110,6%111 
B1190,EX1101100,6X11000008 

4578 KEY DEF 22,1,124,92 

4588 KEY DEF 19,1,125,93 

4598 KEY DEF 17,1,123,91 

4608 KEY DEF 26,1,126,96 

4618 RETURN 


senausdruck mit allen Feldern untereinander 


Andreas Karl 

Stahlschränke, Werktische, Regelanlagen Stahl und Edelstahlverarbeitung 
Hauptstr. 26 

8049 Fahrenzhausen 

Tel.: (08131) 8 51 (17-0) 

Geb.ı 14.5.37 

Geburtsdatum u. Kennz. erfunden 


Gewinner & Ulrich 

Büros, Banken und Betriebe. Eigene Fertigung elek. betriebener Kartei eräte 
Wörthstr. 25 (beim Ostbahnhof) ® 
8000 München 

Tel.: (089) 41 70-0 

Geb.ı 27.12.1934 

2 

Angaben für Testzwecke 

E. Glatz 

Rolladen, Herkiuen, Jalousien, Fenster 

a en 


Tel.: (oe 3 19 40 40 
Geb.: 17.9. 


Nur für Testzwecke 


Mendeuck nebeneinander formatiert. Felder ausgesucht 


Hauptstr 0049 Fahrenzhausen Tel.: be 8 . ur 
Keim 1 Ulrich Wörkkatr. ;2 _ Ontbahahot) 8000 München 80 Tel.: (089 
£, Satz Lobhoter 8057 Eching Tels: m ’ ws “ “ 


Ausdruck auch ohne Feldüberschrift und Zeichen in PICA 


Andreas Karl Hauptstr 8049 Fahrenzhausen 


Gewinner & Ulrich hör thstr. 25 ee Ostbahnhof) 8000 München 80 
E. Glatz ohhoferstr 8057 Eching 


Telefonliste. Linker Rand einstellbar 


Andreas Karl...us.0n..(Ö8131) 8 51 (17-0) 
Gewinner & Ulrich. zzuus0...(L083) 41 70-0 
E. Glatz..u.nsenunennnnnn (089) 3 19 40 40 
Riedel.vonsesuenunnannannn (OF11) 3 693 21 
Linz Heinz. “eeuuunerennnnn. (ÖBBEL) 25 72 


Geburtstagliste nach aufsteigenden Datum sortiert 


03.03.1953 Linz Heinz 
07.03.1942 Riedel 
14.05.--37 Andreas Karl 
17.09.---- E. Glatz 
27.12.1934 Gewinner & Ulrich 


Eingabe. .: 
Suchen. ..: 
Blaettern:3 


imschrift.: Himmelreich 12 
Piz.Ort...: 1888 Jenseits 
Telefon...: Tel.: (12%) 56 78 99 


| LISTING 


OUT PUT 
NEUE SCHRIFTEN BRAUCHT 
DER MENSCH! 


So manch einer ärgert sich mit Textverarbeitungen 
rum. Ich auch. Besonders eines stört mich immer 
wieder: Die Druckersteuerzeichen, dargestellt 

durch inverse Buchstaben, sehen nicht nur häßlich 
und unübersichtlich aus, sie machen einen vernünfti- 
gen Blocksatz nahezu unmöglich. Warum kam eigent- 
lich noch nie jemand auf die Idee, die verschiedenen 
Druckarten auf dem Bildschirm des grafikfähigen 
Schneiders darzustellen? 

Nun, ich kam auf diese Idee. Doch der Idee folgte 
nicht gleich die Tat — im Gegenteil, sie schlummerte 
lange vor sich hin...bis ich kürzlich bemerkte, daß die 
Ausgaberoutine des Schneiders gar nicht so ROM- 
intensiv ist, wie ich immer dachte: 

Die Bildschirmausgabe des Schneider CPC erfolgt 
grundsätzlich über zwei Firmwarejumps: TXT 
OUTPUT (#BB5A) und TXT WR CHAR (#BB5D). 
Die Standardausgaberoutine ist hierbei TXT 
OUTPUT, welche auf Steuerzeichen überprüft und 
diese auch ausgibt. 

Ist das auszugebende Zeichen jedoch kein Steuer- 
zeichen, so verzweigt TXT OUTPUT, inzwischen im 
ROM, seinerseits zu TXT WR CHAR, welches im 
ROM an der Adresse #1334 (CPC464) liegt. TXT 
WR CHAR nun erhöht die Cursorposition, überprüft , 
ob die VDU-Ausgabe zugelassen ist, und ruft dann zur 
Ausgabe die Routine TXT WRITE CHAR (#134A im 
464-Rom). 


OUTPUT 


Das Denanstpabionsprogram 


, die 


Sehaten Sie sich nicht schen immer Texte auf den 
oder sie zu 


dem, Bildschirn hevermabeben 
schreiben Sie 5 hoch 4 nicht lieber Se als SM ? 


La ET PIE 
a do bä 


Mallben Sie das wirklich mach nie 99 


fa, ver wird dem sleich Fubtzpepen. Jetzt gibt's ch OUEFUE. Alles Alar 9 


Hier ist der entscheidende Punkt, denn der Aufruf 
erfolgt über ein RAM-patch, die Standard Sprung- 
leiste also. In &BDD3, dem aufgerufenen RAM- 
patch, steht nun ein Jump an die Adresse &134A, 
wo die eigentliche Ausgabe stattfindet. 

„Biegt‘‘ man nun diesen RAM-patch auf eine eigene 
Ausgaberoutine, so könnte man mit den Zeichen 
Manipulationen durchführen, die völlig unabhängig 
von den vom Benutzer definierten Zeichenmatrixen 
wären. 


Die Parameter zum Aufruf der TXT WRITE CHAR- 
Routine sind denkbar günstig: Im Akku das auszu- 
gebende Zeichen, in HL die Bildschirmkoordinaten. 
Betrachtet man nun die ersten vier Byte der Aus- 
gaberoutine, schlägt einem fast das Herz höher: 
134A PUSH HL Spalte/Zeile retten 

134B CALL12D3 Zeichenmatrixadr. holen 

Man braucht also die Ausgaberoutine gar nicht neu zu 
schreiben, es reicht völlig aus, sie vier Byte später als 
gewöhnlich anzuspringen! Es wird also sozusagen 
zwischen obigen vier Byte und der nachfolgenden 
Ausgaberoutine eine eigene Manipulationsroutine 
„gesteckt“!!! 

(Fast) völlig ungebunden kann man nun mit der 
Zeichenmatrix experimentieren. Dies setzt natürlich 
eine gewisse Kenntnis über den Aufbau dieser voraus, 
hier am Beispiel des großen „A“: 


ByteBt 01234567 
1 xXX 1=18 
2 XXXX 2 = 3C 
3 XX XX 3 = 66 
4 XX XX 4=66 
5 XXXXXX 5=7E 
6 XX XX 6= 66 
2... X XX 7=66 
8XXXXXXXX8 = FF 
01234567 


Bim Unterstreichen eines Zeichens wird in der un- 
tersten Rasterzeile ein durchgezogener Strich mar- 
kiert. Für die Matrix bedeutet das, daß alle acht Bit 
des achten, also letzten, Byte gesetzt sind. Indem wir 
also in das achte Byte der Matrix den Wert FF, oder 
255 dezimal, schreiben, unterstreichen wir das 
Zeichen. 

Ähnlich funktioniert die Schriftart ‚‚Italic“. Hier ar- 
Se man mit bitweisem Verschieben der einzelnen 
yte: 


0.1.23% 367 01234367 
XX 2-> xXX 

XXXX 2—> XXXX 

xXX XX 1-> xXX XX 

XX XX 1-> XX XX 

XXXXXX XXXXXXX 
xXX XX XX xXX 

xXX xXX >= XX XX 
< 


01234567 01234567 


Schreibe ich nun also die Byte 06, OF, 33, 33, 7C, 66, 
CC, 00 anstatt der vorherigen Matrix 18, 3C, 66, 66, 
71C, 66, 66, 00, so erhalte ich ein „A“, das mehr oder 
Ve kursiv geschrieben wurde, d.h. in Italic er- 
scheint. 

Bei allen anderen OUTOUT-Schriftarten funktioniert 
das ähnlich: bei INVERS werden die Matrizen negiert, 
bei TURN an der Mittelachse (Byte 4/5) gespiegelt: 
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LISTING 


1 ARHRBRREISSESESARTIETESESESESESESESESESESE SEHE TIERE 
2 ’%* OUTPUT % 
3 '# VON # 
a MICHAEL FOLZ # 
5 ’# FUER * 
6 ’* SCHNEIDER AKTIV * 
7 ’% ECPC 464 JE* 
2 2 2 22 2222 22° 2.222 2222 2022.22 22202.202 20 
9 REM 
I8 MODE 2:PRINT”"Lade Binaerdaten zu 
OUTPUT - bitte warten.":PRINT:MEMO 
RAY &E9FFF 


2a FOR I=B TO &2D6 STEP &18:Z=8:FOR 
J=I TO I+&EF:READ A$:POKE J+EAQBB,V 

ALL"E"+A$) :Z=Z+VAL("&"+A$) :NEXT J:R 

EAD A$:IF VAL(L"”E”+A$)<>Z THEN GOTO 
198 

38 NEXT:IF PEEK(&ACB1)<>&C9 THEN PO 

KE &A213,6D4 

au CALL EAUBB:PRINT"”Daten korrekt g 

eladen" :PRINT: INPUT"Programm speich 

ern (j/n) ";A$:IF UPPER$(A$) ="J"THE 

N SAVE"OUTPUT.BIN",B,&EAB88, &2D6 

58 PRINT: INPUT"Demo starten (jJj/n) " 
;a$: IF UPPER$( a$) ="J3"THEN RUN”"outpu 
t.dem” 

68 END 

78 CLS:PRINT"Checksum error in Zeil 

e";89+[ I/E1B8)*#EA;" TI!" END 

88 DATA 21,04,BD,11,2A,A2,81,082,08, 

ED,B0,21,14,A@,81,18,851D 

98 DATA AB,C3,D1,BC,88,08,88,00,38, 

AB,C3,20,A2,C3,DB,A1,8798 

188 DATA C3,91,Ad,C3,76,A®,C3,AE,A® 
‚C3,0D9,A®,C3,28,A1,C3,8A69 

118 DATA 7A,A1,C3,98,A1,C3,B6,A1,43 
‚48,41,02,43,48,41,52,87ED 

129 DATA 2E,52,45,53,45,D4,49,4E,56 
‚45,52,03,55,4E,44,45,05B4 

138 DATA 52,40,49,4E,C5,49,54,41,4C 
‚49,C3,43,4F,40,50,52,05B1 

148 DATA 45,53,03,49,4E,44,45,D8,42 
‚af ‚4C,C4,45,4C,49,54,0632 

158 DATA C5,54,55,52,CE,88,11,81,AB 
‚21,8E,A®,3E,81,C3,F®,8781 

168 DAIA A1,CD,11,A2,D5,11,07,88, 19 
‚36,FF,B7,ED,52,C3,88,@715 

178 DATA 88,11,9C,AB,21,AB,A®,3E,®2 
‚C3,F8,A1,CD, 11,A2,D5,87A2 

188 DATA ES,86,88,7E,EE,FF,77,23,108 
‚F9,E1,C3,00,®08,11,B9,876F 

198 DATA A®,21,06,AB,3E,04,C3,F@,A1 
‚CD, 11,A2,05,E5,C8,3E,891® 

289 DATA CB,3E,23,CB,3E,CB,3E,23,CB 
‚3E,23,C8,3E,23,23,23,@5FF 

210 DATA CB,26,23,CB,26,E1,C3,00,88 
‚FE,01,28,0A,DD,?7E,®®8,862D 

228 DATA B7,28,84,3E,85,18,82,3E,81 
‚32,18,A1,11,F7,A®,21,0433 

238 DATA 25,A1,3E,88,C3,F8,A1,CD, 11 


123’ 


ee 


‚A2,05,E5,06,@08,AF,C5,881C 
248 DATA 86,84,56,CB,22,1E,808,CB, 13 
‚B3,CB,22,1E,98,CB, 13,84E5 
258 DATA B3,CB,27,18,EE,CB,3F,86,®1 
‚18,02,CB,27,18,FC,77,8643 
268 DATA C1,23,18,DA,E1,C3,88,88,FE 
‚081,28,86,DD,7E,800,32,8624 
278 DATA 79,A1,11,30,A1,21,6A,A1,3E 
‚18,C3,F®,A1,CD,11,A2,0757 
288 DATA D5,E5,86,84,11,75,A1,7E,23 
‚B6,23,12,13,18,F8,E1,0673 
298 DATA ES,1B,1B,1B,1B,EB,3A,79,A1 
‚B7,C4,6D,A1,01,04,88,861E 
388 DATA ED,B®,3A,79,A1,87,CC,6D,A1 
‚E1,C3,00,08,06,84,AF ,87DF 
318 DATA 12,13,18,FC,C9,88,00,08,08 
‚88,11,85,A1,21,95,A1,0488 
328 DATA 3E,20,C3,F8,A1,CD,11,A2,DS 
‚E5,06,08,7E,CB,3F ,B6,8838 
338 DATA 77,23,18,F8,E1,C3,88,88, 11 
‚A3,A1,21,83,A1,3E,48,068E 
348 DATA C3,F®,A1,CD,11,A2,05,E5,86 
‚088,7E,CB,3F,A6,77,23,8864 
358 DATA 18,F8,E1,C3,88,88,11,C1,A1 
‚21,08,A1,3E,80,C3,F®,882A 
368 DATA A1,CD,11,A2,D5,E5,23,23,23 
‚5D,54,13,06,@4,4E, 1A,857A 
378 DATA 77,79,12,28,13,18,F7,E1,C3 
‚80,08,3A,29,A2,87,C8,866F 
38@ DATA AF,32,29,A2,21,2A,A2,11,D4 
‚BD,81,82,08,ED,B@,C9,86A4 
398 DATA 47,3A,29,A2,4F,AB,B7,C8,79 
‚B8,32,29,A2,E5,21,04,87B2 
A088 DATA 8D,4E,23,46,72,2B,73,03,03 
‚n3,83,E1,23,71,23,7@,0498 
A418 DATA C9,E5,CD,D3,12,11,21,A2,DS 
‚01,08,00,ED,B8,E1,D1,8861 
428 DATA C9,00,08,900,08,08,00,00,88 
‚00,00,09,FE,83,C8,DD, 8367 
438 DATA 7E,84,6F,DD,7E,05,67,46,23 
‚7E,23,66,6F,7E,23,E5,861D 
448 DATA C5,CD,A5,BB,D4,06,B9,86,88 
‚C5,0D,7E,88,47,C5,7E,883D 
458 DATA ES,86,88,C5,CB, 17,F5,DD,7E 
‚802,47,38,8A,5F,16,88,85EA 
A468 DATA 6A,62,CD,C3,BB,18,80,C5,1E 
‚81,16,00,6A,62,CD,ED,86BC 
478 DATA BB,C1,18,F3,F1,C1,18,DB,DD 
‚7E,02,CB,27,CB,27,CB, 8928 
488 DATA 27,5F,16,88,21,88,08,B7,ED 
‚52,EB,21,FE,FF,CD,C3,874C 
498 DATA BB,E1,C1,18,89,E5,DD,7E,88 
‚SF,16,88,DD,7E,8@,6F,87AS 
588 DATA 62,B7,ED,52,11,08,88,CD,C3 
‚BB,E1,23,C1,18,9A,CD,87F® 
518 DATA 89,89,DD,?7E,88,CB,27,CB,27 
‚CB,27,CB,27,6F,26,88,867A 
528 DATA DD,7E,82,CB,27,CB,27,CB,27 
‚SF, 16,88,C0,C3,B8B,C1,87B4 
538 DATA E1,85,C2,3D,A2,C9,80,80,88 
00,08,00,08,08,08,00,0358 


LISTING 


I RR III SEE EISEN SEE III 
2 7% OUTPUT-DEMO # 
3 '#* VON # 
a» MICHAEL FOLZ # 
5 + FUER # 
6 '* SCHNEIDER AKTIV * 
7% CPC 464 JE* 
8 RIESE EEE II IE TEE 
9 REM 


18 CALL &BBBB:CALL EBBAE:CALL &BBAA 
:CALL &BBFF:CALI. &6BC65:MODE 2 

29 SYMBOL AFTER 253:5YMBOL 255,8,68 
‚60,60,608,68,8,@:5YMBOL 254,8,8,68, 
608,60,68,68,8:5YMBOL 253,8,0,8,68,6 
0,80,0,8 

38 PLOT-8,8,1:MOVE 188,398:3$="0UTP 
UT”:| CHAR, @a$,8,6:MOVE 88,388:a$="D 
as Demonstrationsprogramm” :| CHAR, @a 


$,2,2 
48 LOCATE 28,9:| ITALIC:PRINT"Fuer L 
eute, die mehr verlangen..." 


58 ICHAR.RESET:LOCATE 1,12:PAINT"”Se 
hnten Sie sich nicht schon immer da 
nach, Texte auf dem Bildschirm ";:l 
BOLD: PRAINT"hevorzuheben"; :| 
CHAR.RESET:PRINT"oder sie zu ”; 
DERLINE :PAINT"unterstreichen”;: 
R.RESET 
68 PRINT”, schreiben Sie S hoch 4 n 
icht lieber 5”; :| INDEX:| ELITE:PAINT 
"4"; :| CHAR.RESET:PRINT"” als 5°4 ?” 
78 PRINT”"Ist nicht auch Ihnen die 
normale Schneiderschrift zu langwei 
lig und sehnen Sie sich nicht nach 
etwas Alternative, ”;:1ITAL 
IC:PRINT"italic”; :| CHAR.RESET:PRINT 
" zum Beispiel, oder gar ";:lELITE: 
PRINT"Elite ?"”:] CHAR.RESET 
88 PRINT"Hatten Sie noch nie das Be 
duerfniss, einmal.. ":a$=SPACE$( 16) 
+”"169 Zeichen in eine Mode 2-Zeile 
zu schreiben, auch wenn es 
vielleicht etwas schwerer lesbar se 
in sollte, oder ihre Brille nicht m 
ehr mitmacht?" :GOSUB 378 
98 PRINT:PRINT"Wollten Sie noch nie 
im Mode 2 einmal wie im"SPACE$( 14) 
"schreiben ?”:MOVE 362, 126:3$="Mode 
1”:1 CHAR, @a$,2,1 
188 MOVE 148, 188:a$="Wollten Sie da 
s wirklich noch nie ?!?”:1CHAR,@a$ 
‚1,2 
118 PRINT STRAING$( 3,18) :PRINT"”Na, w 
er wird denn gleich ";:| TURN:PRINT” 
kopfstehen"”; :| CHAR.RESET:PRINT”. Je 
tzt gibt’s doch ";:1BOLD:PR 
INT"OUTPUT"; :| ITALIC:PRINT”. Alles 
klar ?”:| CHAR.RESET 
128 GOSUB 248:LOCATE 22, 11:1 CHAR.RE 
SET:I BOLD: | UNDERLINE :PRINT CHRA$( 17) 


CHR$( 28)” OUTPUT - Liste der Befehl 

e: ":PRINT:I CHAR.RESET 

138 PRINT"ICHAR,@string,x-Verzerrun 
g,y-Verzerrung”TAB(42)"Zeichen in b 

eliebiger Groesse" 

148 PRINT"”| ITALIC"TAB(42) "kursive S 

chrift anwaehlen" 

158 PRINT"”I BOLD"TAB( 42) "Fettschrift 
anwaehlen” 

168 PRINT"IELITE"TAB(42) "Schriftart 
Elite anwaehlen" 

178 PRINT"] UNDERLINE"TAB( 42) "Unters 
treichungsmodus einschalten” 

188 PARINT"”| TURN"TAB(42) "gekippte Sc 
hrift anwaehlen"” 

198 PRINT"| INVERS"TAB( 42) "Invertier 
te Schriftdarstellung" 

288 PRINT"I INDEX, flag”TAB( 42) "Index 
schreibweise, @=sub-, 1=superscript” 

218 PRINT"| COMPRESS, flag"TAB( 42) "ko 

mprimierte Schrift,®=rechts, 1=links 


228 PRINT"I CHAR.RESET"TAB( 42) "Stand 
ardausgabe wiederherstellen" 

238 GOSUB 248:LOCATE 1,18:PRAINT CHR 
$( 28) :IF z=18 THEN 58 ELSE END 

248 z=8:3a$="(C) ESCape! Software 19 
87, Michael Folz” 

258 b$=STRAING$L3,253) +" "+STAING$C? 
‚253) +" "+STRING$( 8,253) +” "+STRING 
$(5,253) +" "+STRING$(7,253) +” "+STR 
ING$( 4,253) 

268 c$=STRAING$( 3,254) +" "+STAING$E? 
‚„254) +" "+STAING$( 8,254) +” "+STRING 
$(5,254) +" "+STRING$( 7,254) +" "+STR 
ING$( 4,254) 

278 d$=-STRING$( 3,255) +” "+STAING$L? 
‚„255) +" "+STRING$( 8,255) +" "+STRING 
$(5,255)+” "+STRAING$L7,255)+" "+STR 
ING$( 4,255) 


288 LOCATE 18,25:PRINT a$:FOR i=1 T 
0 58:NEXT 

298 LOCATE 18,25:PRINT d$; :FOR i=1 
TO 58:NEXT 

388 LOCATE 18,25:PRINT b$; :FOR i=1 
TO 58:NEXT 

318 LOCATE 18,25:PRINI c$;:FOR i=1 
TO 58:NEXT 


328 I TURN:LOCATE 18,25:PRINT a$:FOR 
i=1 TO 58:NEXT:I CHAR.RESET 


338 LOCATE 18,25:PRINT d$;:FOR i=1 
TO 5@:NEXT 
348 LOCATE 18,25:PRINT b$;:FOR i=1 
TO 58:NEXT 
358 LOCATE 18,25:PRINT c$;:FOR i=1 
TO 58:NEXT 


368 z=-z+1:IF INKEY$="" AND z<1B8 THE 
N 288 ELSE RETURN 
378 x=POS(C #8) :y=VPOS( #8) :| COMPRESS, 


1:FOR i=1 TO LEN(a$)STEP 2:PRINT MI 
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(EEE ne Da ln ET ET AEERTE LEE KL SUSE SEE EBERLE eu LATEST ETEBeSUEDeL EEE Ur Team anEE meinSeni een Tneranas ostsee ne ner Tonne ern ums une metnseemna eesems nernrteereR ann meet rear 


LISTING 


D$(a$,i, 1); :NEXT 

388 LOCATE x,y:PRINT CHR$( 22) CHRA$L 1 
;:1COMPRESS,@:FOR i=2 TO LEN(a$)ST 

EP 2:PRINT MID$(a$,i,1); :NEXT:PRINT 
CHR$( 22) CHR$( 8) ; :| CHAR.RES 

FT:AFTURN 


1234367 01234567 
xXX _— 

XXXX I-> XXX XX 
xXX xXX I---> XXXXXX 
xXX XX I---—> XXXXXX 
xXXXXXX -—!!! xXX XX 
XX xXX ——-!! XXXX 
xXX xXX ——-!! XX 


01234567 01234567 


Komplizierter sind hingegen die übrigen Funktionen, 
da sie gedanklich etwas abstrakt sind und ausrei- 
chende Kentnisse der Maschinensprache verlangen. 
Deshalb verzichte ich hier auf eine genauere Darstel- 
lung dieser Funktionen. 


LISTE DER OUTPUT-Befehle: 


ICHAR.RESET löscht alle Schriftarten, Rückkehr 
zur Standardschrift 

'ITALIC kursive Schrift (Italic) 

'BOLD Fett-Schrift 

'ELITE Dünnschrift (Elite) 

'!UNDERLINE _unterstrichene Zeichen 

'TURN auf den Kopf gestellte gespiegelte 
Zeichen 

'INVERS invertierte Zeichen 

'!INDEX ‚flag Indeschreibweise, 


Flag 1=subscript 

Flag O=superscript 
ICOMPRESS ‚flag komprimierte Zeichendarstellung 
(160 Zeichen/Zeile), 
Flag 1=links 
Flag 2=rechts 
Zeichendarstellung in beliebiger 


'CHAR,3,cString, 
Größe (siehe unten) 


XV,yV 


Alle Schriftarten verändern die Matrix an sich nicht 
(was auch schwierig ist, solange sie im ROM liegt!), 
sondern kopieren sich die jeweilige Matrix in einen 
eigenen Bearbeitungsbuffer. 

Wichtig: Alle Schriftarten sind frei kombinierbar!, 
d.h., man kann z.B. auch Zeichen Italic, unterstrichen 
und invertiert darstellen. 

Nicht ganz in diese Liste paßt der Befehl 'CHAR. Er 
ist ein eigentlich völlig eigenständiger Befehl, den ich 
nur in dieses Paket nahm, weil’s vom Thema paßte. 
Das vollständige Befehlsformat lautet !CHAR;3cString, 
x-Verzerrung,y-Verzerrung. 

Die Zeichenkette String wird dann an der aktuellen 
Grafikposition mit der aktuellen Grafikfarbe in ange- 
gebener Verzerrung geplottet, wobei die aktuelle 
Position die obere linke Ecke angibt. 

Zur Verzerrung: Definitionsgemäß nahm ich an, daß 
im Mode 2 alle Zeichen mit der Verzerrung (1,1) ge- 
schrieben werden. Gibt man also bei CHAR diese Ver- 
zerrungen an, werden die Zeichen in normaler 
Mode-2-Größe geschrieben. Hierbei ist es unwichtig, 
in welchem Mode der Rechner sich gerade befindet. 


Man kann also auch im Mode 1 Mode-2-Zeichen aus- 
geben, doch leidet die Lesbarkeit darunter. Im Mode 
1 hingegen gilt dann die Standardverzerrung (2,1), im 
Mode 0 (4,1). Zeichnet man also im Mode 2 Zeichen 
mit der Verzerrung ( 8,4), so erhält man Buchstaben, 
die 8mal so breit und 4mal so hoch sind wie normale 
Mode-2-Zeichen. Die Verzerrungen sollten nicht grö- 
ßer als (15,15) sein, da ansonsten unschöne Effekte 
auftreten könnten. 
Um diese doch etwas abstrakte Beschreibung zu ver- 
anschaulichen, liegt Ihnen das Programm “OUTPUT. 
DEMO“ vor, welches einige der beschriebenen Be- 
fehle anschaulich vorführt. 

(Michael Folz) 


BORO 


Stellen Sie sich vor, Sie erhalten den letzten Brief von 
Ihrer Tante, die inzwischen verstorben ist. Darin teilt 
Sie Ihnen mit, daß Sie nach ihrem Tod ihr geheimnis- 
volles Schloß vererben will. Stutzig macht Sie. jedoch 
der Hinweis, daß Sie sich in dem Schloß sehr vorsich- 
tig verhalten müssen. Denn sonst ergeht es Ihnen wie 
Ihrem alten Onkel Boro. 
Aber die Neugierde ist stärker und Sie suchen das 
Schloß auf. Und schon erleben Sie ein Abenteuer, 
wie Sie es sich nicht haben vorstellen können. 
Unser Autor Thomas Fischer hat für alle Schneider- 
aktiv-Leser dieses Textadventure in reinem Basic ge- 
schrieben. Sie werden in dem Schloß umherirren und 
ein Erlebnis wird das andere jagen. Sie müssen Ge- 
heimtüren entdecken und öffnen, einen Schlüssel fin- 
den, den Sie dann später benötigen und einige Dinge 
auf Ihrem Weg durch das Schloß finden und mitneh- 
men. Denn Ihre Ausrüstung ist wichtig, wenn Sie das 
Abenteuer erfolgreich abschließen wollen. 
Da das Spiel auf einem Grünmonitor programmiert 
wurde, kann es sein, daß Ihnen die Farben eventuell 
nicht zusagen. Aber das können Sie ja dann im 
Listing selbst anpassen. 
Viel Spaß bei der Lösung des Geheimnisses um das 
alte Schloß Ihrer Tante und passen Sie auf Boro auf. 
Lassen Sie sich überraschen. 

(JE) 


CHEF IE NIE NE UI IENEIEIENEIEIEIE IE 
"# DER FALL BORO ( VORPROGRAMM) * 
Z VON 

+ THOMAS FISCHER 
Z FUER 

Z SCHNEIDER AKTIV 
.. CPC 664/6128 
(EEE UHREHNEEN NEUEN EHEN 
@ INK 1,18 

1,1,18,0,11,0,10 

1,10,2,2 

3,1,8,16,5,-3,2 
2,5,3,3,1,-21,22,9,-3,2 
-2,18,2,2,5,-7,1,2,11,3,2,-4 


QD- 


AO N)0DNUM 
“uk 


125 


| LISTING 


28 MODE 8 

38 PLOT 318, 53:DRAW 233, 39:DRAW 2 
33, 68:DRAW 184, 53:DRAW 177, 67:DR 
AW 128, 53:DAAW 114, 67:DRAW 142, 1 
16:DRAW 114, 116:DRAW 121, 137:DRAW 


187, 165:DRAW 72, 158:DRAW 86, 172 
:DRAW 79, 193:DRAW 51, 193:DRAW 65, 
207 


aB DRAW 58, 214:DRAW 37, 214:DRAW 5 
8, 235:DRAW 23, 235:DRAW 58, 256:DR 

AW 58, 278:DRAW 86, 298:DRAW 37, 29 
8:DRAW 79, 354:PLOT 78, 354:DRAW 18 

2, 345:DRAW 123, 352:DRAW 165, 324: 
DRAW 165, 373:DRAW 186, 352:DRAW 28 

7, 373 

58 DRAW 280, 394:DRAW 249, 359:DRAW 
242, 394:DRAW 256, 388:DRAW 298, 3 

66:DRAW 312, 394:DRAW 348, 338 :DRAW 
389, 387:DRAW 389, 331:DRAW A431, 3 

31:DRAAW 494, 394:PLOT 459, 359:DRAW 
473, 317:DRAW 557, 373:DRAW 536, 2 

89 

68 DRAW 627, 352:PLOT 556, 383:DRAW 
616, 251:DRAW 546, 251:DRAW 568, 2 

37:DRAW 568, 223:DRAW 588, 195:DRAW 
567, 174:DRAW 581, 16®:DRAW 581, 1 

46:DRAW 595, 97:DRAW 518, 98:DRAW 5 

46, A41:DRAW 584, 69:DRAW 584, 27 

78 DRAW AAB, 55:DRAW 427, 28:DRAW 3 
78, 48:DRAW 378, 28:DRAW 357, 27:DR 

AW 358, 6:DRAW 322, 28:DRAW 315, 13 
:DARAW 313, 53 

BB MOVE 5,5:DRAW 5,395:DRAW 635,395 
:DRAW 635,5:DRAW 5,5 

9a MOVE. 58,58:FILL 12 

188 MOVE 628, 18:FILL 12 

118 MOVE 4598,388:FILL 12 

128 MOVE 295,388:FILL 12:MOVE 248,3 

88:FILL. 12 

125 FOR i=1 TO 188:NEXT:SOUND 132,1 
9,46,12,2,2 

138 INK 2,12:INK 3,22 
148 LOCATE 5,8:PRINT” 

EN 2 

158 LOCATE 9, 13:PAINT"BORO”:PEN 3 

155 FOR i=1 TO 7888:NEXT 

168 "laufschrift 

178 a$=CHRA$( 164) :b$-SPACE$( 18) :c$=C 

nen ” IN ADVENTON, VON 
A ad 2 te a sage" 1987 }7}}- 

druecke <TASTE>"+b$ 


199 FOR 1=1 TO 288:LOCATE 6, 19:PRIN 


1,13 
a ae ie = THEN NEXT:GOTO 198 
218 LOCATE 5,19:PAINT"Ladung erfolg 
t":WINDOW#®, 18,10, 18, 18: INK 1,8:PEN 
#8, 1:RUN"boro2” 


DER FALL ”:P 


Y FT REEHEREEUEHURHUHEHN NUR HUNNTRN 


2 ’* BORO2 * 
3 '% VON * 
a '’* THOMAS FISCHER * 
5 ’# FUER % 
6 ’* SCHNEIDER AKTIV * 
VE CPC 664/6128 * 
8 RRERSRRRSHRRRRRHRRRHSRRRSHHIHETN 
18 MODE 1:INK 1,26 

158 ar= 24:a0= 25:av= B:af= B:imax 
=4 

168 spieler=- 24 

178 wl= 4 


198 DIM raum$(ar) ,‚durchgangl( ar,6), 
ob$( ao) ,‚rufname$( a0) ‚ob( ao) ,‚verb$( a 


v) 

2nB REM *#VERBEN 

218 DATA untersuche 

21711 DATA nimm 

212 DATA lege 

213 DATA lies 

214 DATA oeffne 

215 DATA zerstoere 

216 DATA zuende 

217 DATA ziehe 

388 REM ##GEGENSTAENDE 

381 DATA zahlreiche Spiegel,spiege 
1,6 

382 DATA einen Geheimgang,gang,® 
383 DATA ein klappriges Regal,rega 
1,13 

384 DATA einen abgewetzten Armsess 


el,sessel,? 

385 DATA ein dickes Buch,buch,® 
386 DATA einen Zettel,zettel,® 
397 DATA einen Tisch,tisch,9 

388 DATA unzaehlige Buecherregale, 
buecherregale,9 


389 DATA einen runden Tisch, runden 
tisch, 1 

318 DATA eine morsche Treppe,trepp 

e,B 

311 DATA ein schweres Eisentor,tor 
‚24 

312 DATA ein Feuerzeug, feuerzeug,- 
1 

313 DATA eine schwere Spitzhacke,h 

acke, 12 

314 DATA etwas Sprengstoff, sprengs 
toff,® 

315 DATA eine Holzkiste,kiste, 13 
316 DATA eine Wand,wand, 23 

317 DATA eine Zuendschnur, schnur, 1 

2 

318 DATA Foltergeraete,geraete, 1B 
319 DATA einen Altar,altar,23 

328 DATA einen Schluessel,schluess 

el,8 

321 DATA einen grimmig dreinblicke 


nden Geist,geist,3 
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——ee nen 


LISTING 


322 DATA ein dickes Eisentor,eisen 
tor,22 
323 DATA einen Kachelofen,ofen,4 


324 DATA einen Hebel,hebel,® 

325 DATA Boro,boro,® 

588 REM #*Aaumbeschreibung 

sai DATA im Arbeitszimmer, 8,8,8,2, 
0,8 

sa2 DATA auf einem Gang,8,5,1,3,8, 
1) 

583 DATA in einem Privatgemach, 8,8 
‚2,9,0,8 

584 DATA im Studierzimmer,®8,8,8,5, 
9,8 

SaS5 DATA auf einem Gang,2,8,4,6,8, 

0 

SB6 DATA im Spiegelsaal,8,8,5,7,8, 

[.) 

587? DATA im blauen Zimmer,8,8,6,®, 

20,8 

Sa8 DATA im Treppenhaus,5,11,8,24, 

0,8 

589 DATA in einer geheimen Bibliot 
hek,98,0,8,0,9,8 

518 DATA im Empfangszimmer,8,8,8,1 
1,90,8 

511 DATA im Festsaal,8,8,18,12,8,8 
512 DATA im Lagerraum,®,8,11,13,8, 

14) 

513 DATA im Keller,8,8,12,8,8,8 
514 DATA im Labyrinth, 13,28,8,15,8 
8 

» 

515 DATA im Labyrinth,®8,8,14,16,®, 
o 


516 DATA im Labyrinth,8,8,15,17,8, 
() 
517? DATA im Labyrinth,®,17,19,18,®8 


[) 
L) 
518 DATA in der Folterkammer,®,18B, 


19,17,8,8 

519 DATA im Labyrinth, 19,22,21,17, 
0,0 

528 DATA im Labyrinth, 14,21,28,8,8 
4) 

» 

521 DATA im Labyrinth,28,21,14,19, 

0,8 

522 DATA im Labyrinth,22,8,14,19,8 
‚® 

523 DATA in der Opferstaette,22,8, 

0,8,80,8 

524 DATA vor einem Schloss,8,8,8,®8 
‚8,8 


6088 REM ** Mitteilungen 


681 m$( 1)="Ich sehe nichts besonde 
res." 
602 m$(2)="So stark bin ich nicht 


1" 
683 m$(3)=-"Wie stellst Du Dir das 
vor ?"” 


684 m$(4)="Ich verstehe nicht, was 


Du meinst !” 


6085 ok$="Okay !" 

699 REM 

888 FOR i=1 TO av 

818 READ verb$(i) :verb$( i)=LEFT$( vw 


erb$(i),wl) :verb$( i) =UPPER$( verb$( i 
J) 
828 NEXT i 
838 FOR objekt=1 TO ao 
848 READ ob$( objekt) ,rufname$( ob je 
kt) ‚ob( objekt) :rufname$( objekt)=LEF 
T$Crufname$( ob jekt) ‚wl) :rufname$( ob 
jekt) =UPPER$( rufname$( ob jekt)) :NEXT 
ob jekt 
858 FOR raum=1 TO ar:READ raum$(ra 
um) 
868 FOR richtung=1 TO 6:READ durch 
gang( raum, richtung) 
878 NEXT richtung:NEXT raum 
875 CLS:b$=SPACE$( 18) 
888 t$=b$+" Ratschlaege fuer Ihr we 
iteres Vorgehen 
druecke <Taste 

>"+b$ 
885 FOR 1=1 TO 258:LOCATE 1,28:PARIN 
T MTID$Lt$,1,35) 
886 IF INKEY$="" THEN NEXT :GOTO 88 
5 
898 GOSUB 988:G0T0 1988 
988 MODE 1:PAPER B8:INK 8,8:BORDER 
B@B:PEN 1:INK 1,25 
918 PRINT” CPC - VENTURES":PRI 
NT TAB( 15) CHR$( 164) ;” 1987 by Thom 
as Fischer" 
928 PRINT STRING$(48,288) :PRINT"St 
ellen Sie sich einen Roboter vor, 
denSie mit zahlreichen Kommandos 
fuetternkoennen.” 
938 PRINT"Ich werde mich fuer Sie 
den Gefahren dergefaehrlichsten Abe 
nteuer aussetzen.” 
948 PRINT"Damit Sie mich sinnvoll 

steuern koennen,werde ich Ihnen di 
e Situationen der ichmich gerade be 


finde, jeweils genau be-schreiben 
- 

958 PRINT"Anschliessend sagen Si 

e mir mit zweiWorten, wie beisp 


ielsweise UNTERSUCHETISCH, NIMM BU 

CH, was ich tun soll." :PRINT 

968 PRINT"”Darueber hinaus verstehe 
ich die Befehle INVENTUR, SAVE 
‚ LOAD und ENDE.” 

978 PRINT STRAING$(48,218) :INK 3,12 
‚24:INK 2,24,12:PEN 3:PRINT"” 

<TASTE>"; :PEN 2:PARINT"” drueck 

en”; :PEN 1:PRINT 

988 eingabe$=INKEY$:IF eingabe$="" 
THEN 988 ELSE CLS:MODE 1:INK 1,2:I 

NK 2,14:INK 3,26:RETURN 


127 


’ LISTING 


998 MODE 1:PAPER 8:INK 8,8:BORDER 
8:INK 1,2:INK 2,14:INK 3,26:PEN 1 
1888 leerzeile$=STAING$( 48,32) 
1818 DATA Norden, Sueden, Westen, Ost 
en,oben, unten 

1828 FÖR richtung=1 TO 6 

READ richtung$( richtung) 

NEXT richtung 

CLS 

PRINT :PRINT 

LOCATE 1,1 

FOR zeile=1 TO 18 

PAINT leerzeile$; 

NEXT zeile 

LOCATE 1,1:PEN 2 

PRINT"Ich bin "; 

PRINT raum$( spieler) ; :PRINT”. 


1938 
1948 
1878 
1888 
1898 
1188 
1118 
11208 
1138 
1148 
1158 


1168 
1178 
1188 
1198 


PRINT"Ich sehe "”; :gedruckt=@® 
FOR i=1 TO ao 

IF ob(i)<>spieler THEN 1218 
IF POS( #8) +LEN( ob$( i)) +2<=39 
THEN PRINT ob$(i);”, ";:GOTO 1285 
1288 IF POSC #8) +LEN( ob$( i))+2>39 T 
HEN PRINT:GOTO 1198 


1285 gedruckt=--1 

1218 NEXT i 

1215 IF NOT gedruckt THEN PRINT”ni 
chts besonderes "; 

1228 PRINT CHA$(B) ;CHA$(8) ;”." 
1238 PRINT leerzeile$:PEN 2 

1248 PRINT"Ich kann nach ";:gedruc 
kt=9 

1258 FOR richtung=1I TO 6 

1268 IF durchgang( spieler,richtung 


)=8 THEN GOTO 1388 ELSE gedruckt=-1 
1278 IF POSC(#8)=15 THEN PRINT rich 
tung$( richtung) ; :G0OTO 1388 

1288 IF POSC#8) +LEN( richtung$( rich 
tung))<38 THEN PRINT”, ";richtung$( 
richtung) ; :GOTO 1388 

1298 PRINT”",":PAINT richtung$( rich 
tung) ;:GOTO 1388 

1388 NEXT richtung 

1318 IF gedruckt=® THEN PRINT"”nirg 
endwo”; 

1328 PRINT”.":PEN 3 

1338 PRINT STRING$(4B, 154) 

1398 PEN 3:LOCATE 1,25:INPUT"Was s 
oll ich tun" ;eingabe$:eingabe$=UPPE 
A$(l eingabe$) :PEN 2 

1488 IF LEN(eingabe$)>2 THEN 1588 
1418 IF eingabe$="N” AND durchgang 
(spieler, 1)<>® THEN spieler=durchga 
ne( spieler, 1) :PRINT ok$:GOTO 1888 
1428 IF eingabe$="5” AND durchgang 
(spieler,2)<>8 THEN spieler=durchga 
ng( spieler,2) :PRINT ok$:GOTO 1888 
1438 IF eingabe$="W” AND durchgan 
gel spieler,3)<>8 THEN spieler=durchg 


ang( spieler,3) :PRINT ok$:GOTO 1888 
1448 IF eingabe$="0" AND durchgang 

(spieler,4)<>® THEN spieler=durchga 

ng( spieler,4) :PRINT ok$:G6OTO 1888 
1458 IF eingabe$="0B"” AND durchgan 

gl spieler,5)<>@® THEN spieler=durchg 

ang( spieler,5) :PRINT ok$:60TO 1888 
1468 IF eingabe$="U" AND durchgang 

(spieler,6)<>® THEN spieler=durchga 

ng( spieler, 6) :PRINT ok$:G60TO 1888 
1478 IF LEN(eingabe$)<3 THEN PRINT 

"Dahin fuehrt kein Weg !":GOTO 1888 
1488 IF l.EN(eingabe$)>8 THEN GOTO 

2088 

1499 REM *# Start Inventur 

1588 IF LEFT$(eingabe$,3) <>"INV" T 

HEN GOTO 1688 

1518 PAINT"Ich trage folgendes mit 
mir:"” 

1528 FOR objekt=1 TO ao 

1538 IF ob(objekt)=-1 THEN PRINT o 

b$( ob jekt) 

1548 NEXT objekt 

1558 GOTO 1888 

1568 REM *## Ende INV 

1688 IF LEFT$Ceingabe$,3)<>"S5AV” T 

HEN GOTO 1698 

1618 PRINT"REC & PLAY druecken 

Unter welchem Namen 

speichern .......... ";STRAING$( 18,8 
;:INPUT eingabe$ 

1615 IF LEN(eingabe$)>8 THEN PRINT” 

Bitte etwas kuerzer !":GOTO 1615 EL 

SE eingabe$=eingabe$+"”.bas"” :DPENOUT 
eingabe$ 


1628 PAINT#9,spieler 

1638 FOR objekt=1 TO ao 

1648 PRINT#9,ob( objekt) 

1658 NEXT objekt 

1668 FOR raum=1 TO ar:FOR richtung 


=1 TO 6:PRINT#9, durchgang( raum, rich 
tung) :NEXT richtung:NEXT raum 

1678 FOR fFlag=-1 TO af:PRINT#9, fie f 
lag) :NEXT flag 

1688 CLOSEOUT:PRINT ok$:GOTO 1888 
1698 IF LEFT$(eingabe$,3)<>"LOA" T 

HEN GOTO 1988 

1788 PAINT"Cassettte rueckspulen & 
PLAY druecken ...Welches Spiel lad 


21 ESSENER ENTE ";STAING$( 18,8) ; : INPUT 
eingabe$ 
1718 IF LEN(eingabe$)>8 THEN PRINT 


"Das kann nicht sein !":GOTO 1718 E 
LSE eingabe$=eingabe$+”.BAS” :OPENIN 
eingabe$ 

1728 INPUT#9,spieler 

1738 FOR objekt=1 TO ao:INPUT#9,ob 
(objekt) :NEXT objekt 

1748 FOR raum=1 TO ar:FOR richtung 
=1 TO 6:INPUT#9,durchgang( raum, rich 
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tung) :NEXT richtung:NEXT raum 

1758 FOR flag=1 TO af:INPUTS9, Fi 
lag) :NEXT flag 

1768 CLOSEIN:PRINT ok$:GOTO 1888 
19898 IF LEFT$(eingabe$,3)<>"INS” T 
HEN GOTO 1958 

1918 GOSUB 988:G0T0 1888 

1958 IF LEFT$Ceingabe$,3)<>"END" T 
HEN GOTO 2888 

1968 ELS:PRINT"Der Autor wuenscht I 
hnen mehr Erfolg beim naechsten 


Mal.":PRINT:PRINT:PRINT:END 

28898 laenge=LEN(eingabe$) 

2818 FOR buchstabe=1 TO laenge 
2828 pruef$=MID$( eingabe$,buchstab 
e,?) 

2838 IF pruef$<>" "THEN NEXT buchs 
tabe 

2848 everb$=LEFT$(eingabe$,wl) 
2858 rl=laenge-buchstabe 

2868 IF rl<8d THEN 2898 

2878 eobjekt$=RIGHT$(eingabe$,rl) 
2858 eobjekt$=LEFT$(eobjekt$,wl) 
2998 FOR verbnummer=i1 TO av 

2188 IF everb$=verb$( verbnummer) T 
HEN 2138 


2118 NEXT verbnummer 
2128 PRINT"Das Verb verstehe ich n 
icht.":GOTO 1888 


2138 FOR o=1 TO ao 

2148 IF eobjekt$=rufname$(o) THEN 

22808 

2158 NEXT o 

2168 PRINT"Diesen Gegenstand kenne 
ich nicht.":GOTO 1888 

2288 ON verbnummer GOTO 5898, 2289 
‚ 7000, B8B00, 9808, 18808, 11888,12 

88 


2289 REM #** INV begrenzen 

2218 anzahl=R:FOR i=-1 TO ao 

2228 IF ob(i)=-1 THEN anzahl=anzahl 

+1 

223@ IF anzahl=-imax THEN PRINT"Nein 
danke.- Ich trage schon genug.":60 

TO 1888 

2248 NEXT i 

2258 GOTO 6888 

45088 CLS:REM Spieler tod 

4518 PRINT"Auch das noch 

PRINT m$( 8) 


!":PRINT: 


4528 PRINT:PRINT"Ich bin tod !":PR 
INT 
4538 INPUT"Soll ich es noch einmal 


versuchen ";eingabe$:eingabe$=UPPE 
A$( eingabe$) 


4548 IF LEFT$(eingabe$,1)="J" THEN 
RUN 

4558 GOTO 1968 

48088 CLS:REM Spieler siegt 

4818 PRINT"Herzlichen Glueckwunsch 


1" 
4828 PRAINT:PRINT"Sie haben die Ihn 
en gestellte Aufgabe" :PRINT:PRINT”g 
eloest und - haben ihren Vor-":PR 
INT:PAINT"fahren nun zur ewigen Ruh 
e verholfen.":PRINT:PRINT"Nun duerf 
en Sie sich an einem" :PRINT:PRINT"”a 
nderen Adventure versuchen." 
4838 PRINT:PAINT:PRINT:PRINT:END 
Sa88 IF o=11 AND spieler=24 THEN PR 
INT"Das Eisentor steht weit offen.” 
:GOTO 1888 
59891 IF spieler=8 AND RND( 1)>8.8 TH 
EN FOR m=3888 TO 4988 STEP 19:50UND 
1,m,1,7:NEXT m:FOR m=7? TO 8 STEP - 
8.2:50UND 1,49898,1,m,8,8,15:NEXT m: 
m$( 8)="Der Boden brach unter mir ei 
n.":GOTO 4588 
5992 IF o=18 AND spieler=-8 THEN PRI 
NT"Sie sieht nicht sehr tragfest au 
s.”:GOTO 1888 
5883 IF o=1 AND spieler=6 AND RND( 1 
)>8.8 THEN m$(8)="Ich sah einen Gei 
st und bekamm einen Herzinfakt." 
:G0TO 4588 
5884 IF o=1 AND spieler=6 THEN PRIN 
T"Sie sind sehr kunstvoll verarbeit 
et.”:GOTO 1888 
59885 IF o=4 AND spieler=7 THEN PRIN 
T"Im Sessel sitzt ihr Toter Onkel B 
oro mit einem Zettel in der Hand.": 
Fl[1)=-1:0b(6)= spieler :GOTO 1888 
S886 IF o=6 AND spieler=7 THEN PRIN 
T"Darauf steht etwas geschrieben.”: 
GOTO 1888 
S98? IF o=23 AND spieler =4 THEN PR 
INT"Ich sehe in der Naehe einen Heb 
el.":ob(24)= spieler :60T0 1888 
5888 IF o=-24 AND spieler =4 THEN PR 
INT m$( 1) :G0OTO 1888 
59989 IF o=9 AND spieler =1 AND f1(2 
=-1 THEN PRINT"Darunter liegt ein 
Schluessel."”:0b(28)= spieler :f1(3) 
=-1:G0T0 1888 
S818 IF spieler =3 THEN FOR i=1 TO 
2889:NEXT:m$( 8) ="Der Geist trieb Sc 
habernack mit mir.”:GOTO 4588 
5811 IF o=9 THEN PRINT m$( 1) :G0TO 1 
088 
S812 IF o=5 AND ob(5)=spieler THEN 
PRINT"Es ist ein Buch ueber” :PRINT” 
Geisterbeschwoerung.":60TO 1888 
5913 IF o=7 AND spieler =9 THEN PRI 
NT"Darauf liegt ein Buch.":0ob(5)=sp 
ieler:GOTO 1888 
59814 IF 0o=17 THEN PRINT"”Sie ist seh 
r lang.":GOTO 1888 
S815 IF o=3 AND f1(3)=-1 THEN PRINT 
"Das Regal verschiebt sich."”:ob(2)= 


spieler :durchgang( 13,2) =14:0b( 28) » 
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=28:G0T0O 1888 

5816 IF o=3 THEN PRINT m$( 1) :60T0 1 
888 

5817 IF 0o=15 AND spieler =13 AND fl 


(4)=8 THEN PRINT"Die Holzkiste ist 
verschlossen."”:GOTO 1888 


S818 IF o=15 AND f1(4)=-1 THEN PRIN 
T"Die Holzkiste ist offen.":60T0 18 
88 
5819 IF o=14 THEN PRINT"Er ist sehr 
explosiv.”:GOTO 1888 
5828 IF o=28 THEN PRINT m$( 1) :G0T0 
1988 
S5a21 IF o=2 AND spieler =13 THEN PR 
INT m$( 3) :GOTO 1888 
Ssa22 IF 0o=-18 AND spieler =18 AND RN 
D( 1)>8.8 THEN m$(®8)="Die Geister ha 
ben mich gefoltert.”:GOTO 4588 
5823 IF 0o=19 AND spieler =23 THEN P 
RARINT"Eine Inschrift besagt: 
Nimm unsere Opfer und sei 
uns gnaedig.”:60TO 1888 


59824 IF o=24 AND spieler =4 AND obf( 
4)= spieler THEN PRINT m$( 1) :G0T0 

1888 

s5a25 IF o=16 THEN PRINT"Der Vorfahr 
e ist hier zur Strafe”:PRINT” leben 
dig eingemauert worden."”:GOTO 1888 

5826 IF o=22 AND spieler =22 AND f 
1(5)=® THEN PRINT"Es ist verschloss 
en.”:GOTO 1888 

5827 IF o=22 AND spieler =22 AND f 
1(5)=-1 THEN PARINT"Es ist offen.”:6 
OTO 1888 

5928 IF o=8B AND spieler =9 THEN PRI 
NT m$( 1) :GOTO 1888 

5832 IF o=18 THEN PRINT m$( 1) :GOTO 

1888 . 

5933 IF o=25 AND spieler=7 THEN PRI 
NT"Er stinkt 1”:GOTO 1888 

5999 PRINT”So etwas sehe ich hier n 
icht."”:GOTO 1888 


6888 IF o=11 AND spieler =24 THEN P 
RINT m$( 2) :GOTO 1888 
6881 IF 0o=-18 AND spieler =8 THEN PR 


INT m$( 2) :G0OTO 1888 

6882 IF o=9 AND spieler =1 THEN PRI 
NT"Das halte ich nicht fuer sinnvol 
1.":GOTO 18868 

60883 IF o=21 AND spieler =3 THEN m$ 
(8)="Der Geist erschlug mich.”:GOTO 
45908 

6884 IF o=24 AND spieler=4 THEN PRI 
NT m$( 2) :G0OTO 1888 

6885 IF 0o=28 AND ob( 28)=28 THEN Fi( 
5) =-1:0b( 28) =-1:PRAINT ok$:GOTO 1888 
6886 IF o=1 AND ob( 1)= spieler THEN 

ob( 1) =-1:PRINT ok$:GOTO 1888 

6887 IF o=6 AND ob(6)= spieler THEN 


ob( 6) =-1:PRINT ok$:GOTO 1888 
6888 IF 0o=5 AND ob(5)= spieler THEN 
ob(5)=-1:PRINT ok$:GOTO 1888 
6889 IF 0o=14 AND ob( 14)= spieler TH 
EN ob( 14) =-1:f1(7)=-1:PRINT ok$:GOT 
O0 1888 
6818 IF 0o=15 THEN PRINT m$( 2) :GOTO 
1888 
6811 IF o=12 AND ob( 12)=-1 THEN PRI 
NT"Das habe ich schon." :PRINT ok$: 
GOTO 1888 
6812 IF 0o=13 THEN ob( 13) =-1:f1(6)=- 
1:PRINT ok$:GOTO 1888 
6813 IF 0o=7 AND ob(7)= spieler THEN 
PRINT"Das halte ich nicht fuer sin 
nvoll.”:CGOTO 1888 
6R1A IF o=B AND ob(8B)= spieler THEN 
PRINT m$( 2) :GOTO 1888 
6815 IF o=18 AND ob( 18)= spieler TH 
EN PRINT m$( 2) :G0OTO 1888 
6816 IF o=19 AND ob( 19)= spieler TH 
EN PRINT m$( 3) :GOTO 1888 
6817 IF o=17 AND ob( 17)= spieler TH 
EN ob( 17)=-1:PRINT ok$:GOTO 1888 
6818 IF o=3 AND ob(3)= spieler THEN 
PRINT m$( 2) :G0OTO 1888 
6819 IF o=4 AND ob(4)= spieler THEN 
PRINT m$( 3) :G0OTO 1888 
6828 IF o=22 AND ob(22)= spieler TH 
EN PRINT m$( 2) :G0OTO 1888 
6821 IF 0o=23 AND ob(23)= spieler TH 
EN PRINT m$( 3) :GOTO 1888 
6822 IF 0o=28 AND ob(28)= spieler T 
HEN ob( 28) =-1:f1(8)=-1:PRINT ok$:60 
TO 1988 
6823 IF 0o=12 AND ob( 12)=spieler THE 
N ob( 12)=-1:PRINT ok$:GOTO 1888 
6824 IF o=25 THEN PRINT m$( 2) :GOTO 
1888 
6999 PRINT m$( 4) :GOTO 1888 
7888 IF o=14 THEN fF1(7)=8 AND ob(B) 
= spieler :PAINT ok$:GOTO 1888 
7881 IF o=12 THEN ob(o)= spieler :P 
RINT ok$:GOTO 1888 
7882 IF 0o=13 THEN ob(o)= spieler :P 
AINT ok$:GOTO 1888 


7883 IF o=28 THEN ob(o)= spieler :P 
RINT ok$:6G0OTO 1888 
7884 IF o=5 THEN ob(o)= spieler :PA 
INT ok$:6G0TO 1888 
7885 IF o=6 THEN ob(o)= spieler :PR 


INT ok$:GOTO 1888 

7886 IF o=1 THEN ob(o)= spieler :PRA 
INT ok$:6G0TO 1888 

7887 IF o=17 THEN ob(o)= spieler :P 
RINT ok$:GOTO 1888 

7999 PRINT m$( 4) :GOTO 1888 

8888 IF o=6 AND ob(6)<>-1i THEN PRIN 
T"Dazu muss ich ihn erst haben."”:60 
TO 1888 
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8881 IF 0o=-6 AND ob(6)=-1 THEN co=IN 
TERANDC 1) #188) : F1(1)=-1:PAINT"Ich s 
ehe zittrig geschriebem die Zahl:": 
PRINT co:GOTO 1888 


8882 IF 0o=5 AND ob(5)<>-1 THEN PRIN 
T"Dazu muss ich das Buch erst haben 


.”:GOTO 1988 


8083 IF o=5 AND ob(5)=-1 THEN GOTO 
8085 
8884 PRINT m$(4A):GOTO 1888 


8885 
8096 


INPUT"Seite"; seite 

IF co<>seite THEN PRINT m$( 1): 
GOTO 1988 

8887 CLS:PRINT"Ratschlaege fuer bes 
ondere Gegebenheiten” :PRINT STRING$ 

(48,154) :PRINT 

8888 PRINT”"Sollte es Dir angeschehe 
n ‚dass Geister":PRINT"Dir das Lebe 
n in deinem Schloss schwer" :PRINT"”m 
achen.” 

8989 PARINT"So hoere meinen Rat:":PR 
INT 

8818 PRINT"Einer ihrer Vorfahren ha 
tte den Sekten- fuehrer Hugo Boro e 

rmordet um seine" :PAINT”eigene Mach 
t weiter auszubauen." :PRINT"Er wurd 

e zur Strafe lebendig eingemauert": 
PRINT 

8811 PRINT"Sie sollten ihm nun zur 

ewigen Ruhe ver-helfen.” 

am1ı2 IF INKEY$="" THEN 8812 ELSE CL 
5:G0OT0 1888 

9888 IF 0o=15 AND fF1(8)=-1 THEN f1(A 
)=-1:PRINT"”- Der Deckel klappt nach 
hinten.":PRINT ok$:ob( 14) =spieler: 
GOTO 1988 

9881 IF o=22 AND spieler =22 AND fl 
(5) =-1 THEN PRINT ok$:durchgang( 22, 

2)=-23:G0T0 1888 

9992 IF o=15 AND fF1(8)=B8 THEN PRINT 
"Womit ?....”:GOTO 1888 

9883 IF o=5 THEN PRINT ok$:GOTO 188 

L 

9884 IF o=21 THEN PRINT"Tut mir lei 
d.Ich bin nicht Frankenstein." :GOTO 
1888 

9885 IF o=25 AND spieler=-7 THEN PRI 

NT"Tut mir leid.Ich bin nicht Frank 

enstein."”:GOTO 1888 

9999 PRINT m$(4) :GOTO 1888 

1808088 IF 0o=16 AND f1(6)=-1 THEN FOR 
i=1 TO 88:50UND 2,19880,5,14,3,3,31 
:NEXT:GOTO 4888 

18881 IF o=18 THEN FOR m=-3888 TO 48 

aa STEP 198:SOUND 1,m,1,7:NEXT m:FOR 
m=7 TO 8 STEP -8.2:S50UND 1,4888,1, 

m,8,8,15:NEXT m:m$( 8) ="Der Boden br 

ach unter mir ein.":GOTO 4588 

18999 PRINT m$(4) :GOTO 1888 


eruehrung ist der Sprengstoff explo 
diert !":GOTN 4588 

11881 IF 0o=17 AND fF1(7)=-1 AND spie 
ler =23 THEN PRINT"”zzzzisch":FOR i= 
1 TO 9B8A:NEXT:ENT 1,880,1,1,28,2,1:E 

NV 1,18,-1,8,5,-1,4:50UND 2,208,98, 
15,1,1,1@:60T0 4888 

11882 IF o=17 THEN PRINT"zzzzisch": 

FOR i=1 TO 998:NEXT:ENT 1,88,1,1,28 
‚2,1:ENV 1,18,-1,8,5,-1,4:S0OUND 2,2 

08,98,15,1,1,18:G0TO 19088 

11999 PRINT m$( 4) :GOTO 1888 

12888 IF o=24 AND spieler =4 AND fl 

(1)=-1 THEN ob(2)= spieler :PRINT o 

k$:durchgang( 4,2) =9:durchgang(9,1)= 

4:f1l(l2)=-1:G0TO 1888 

12881 IF o=24 THEN PRINT m$( 1) :GOTO 
1888 

12999 PRINT m$( 4) :GOTO 1888 


KYRILLISCHE 
SCHRIFTZEICHEN 


Dieses Programm ist mal ein Gag. Unser Autor Willi 
Lauber hat es geschrieben. Es belegt die Tastatur mit 
russischen Schriftzeichen. 

1 ARRHRRRRRRSHRRHRRRRRSISISIIGESESESENEIESENG 


2 ’%* KYRILLISCHE SCHRIFT * 
3 ’# VON * 
qa '% WILLI LAUBER %* 
5 ’# FUER * 
6 ’* SCHNEIDER AKTIV * 
7 '% CPC 464/664/6128 JE* 
BB RRRRRHHRHHIHHRRISHISHIHUR RU ITEST IE 
18 CLS 
28 PRINT:PRINT:PRINT:PRINT” Kyril 
lische Schrift (Russisch) " 
3@ PRINT:PRINT:PRINT"” 

by” 
48 PRINT: PAINT” Willi La 
uber" 


58 PRINT:PRINT:PRINT:PRINT"Mit dies 
em Programm wird Ihre Tastatur mit 
kyrillischen Schriftzeichen belegt 


68 PRINT:PAINT"Die Belegung entspri 
cht nicht der Uebersetzun 
g.Daher ist es sinnvoll, das Sie si 
ch die Zeichen ausdrucken 1 

as-sen bzw. abschreiben, um selbst 
kleine Aufkleber fuer Ihre Tastatu 
r zu erstellen.” 

78 PRINT:PARINT"Druecken Sie nun bit 
te die kleine ENTER Taste im Zehner 
block" 

88 IF INKEY(6)=® THEN 98 ELSE 88 


11888 IF o=14 THEN m$(8)="Bei der B 


98 RUN"RUSSISCH" 
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WILLI LAUBER 


SCHNEIDER AKTIV 


VON 


FUER 


LISTING 


I 2 22 2.2.2 22 22 22.222 2.22.2022 22.22. 2.2.2.222 
"%* RUSSISCHE SCHAIFT HAUPTPROGR. * 


* 


%* 
* 
* 


CPC 464/664/6128 


18 SYMBOL AFTER 32 


28 SYMBOL 87, 254, 
192, 252, ® 


2, 


38 SYMBOL 71, 


96, 


240, 8 


au SYMBOL. 6B, 


76, 254, 
59 
‚ 98, 254, 


68 SYMBOL 86, 219, 
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SYMBOL 81, 


6, 219, 219, 8 


78 SYMBOL 98, 92, 


JE* 
RRRRRRRHRHROHRHRHARET TRITT NEN 


182, 96, 124, 10 
254, 102, 96, 96, 96, 
126, aA, 44, 44, 44, 
108, 254, 98, 96, 128 

219, 126, 68, 12 


118, 70, 28, 6,5 


4, 28, ® 

88 SYMBOL 73, 198, 198, 286, 214, 2 

38, 198, 198, ® 

98 SYMBOL 74, 56, 198, 286, 214, 23 

0, 198, 198, 8 

108 SYMBOL 76, 126, 44, 44, 44, 44, 
1088, 284, ® 

118 SYMBOL 82, 126, 126, 182, 1982, 
182, 102, 192, 8 

120 SYMBOL 78, 24, 126, 219, 219, 2 
19, 126, 24, 8 

138 SYMBOL. 83, 182, 182, 182, 1982, 
182, 182, 127, 1 

148 SYMBOL 85, 219, 219, 219, 219, 

219, 219, 255, ® 

158 SYMBOL 85, 182, 182, 182, 118, 

62, 6, 6, 8 

168 SYMBOL 123, 2, 219, 219, 219, 
219, 219, 255, 

178 SYMBOL 125, >: 219, 219, 219 
219, 219, 255, 

188 SYMBOL 163, 195, 195, 195, 243, 
219, 219, 243, 8 

198 SYMBOL 96, 68, 182, 3, 31, 3, 1 

02, 68, ® 

288 SYMBOL 124, 286, 223, 219, 251, 
219, 223, >86, ® 

218 SYMBOL 78, 63, 182, 182, 62, 3® 
‚ 54, ıe3, 8 

228 SYMBOL 119, 4, 56, 64, 128, 188 
‚ 108, 56, ® 

23@ SYMBOL 98, ®, ®, 124, 182, 124, 
182, 124, 8 

240 SYMBOL 1983, ®, ®, 252, 188, 96, 
96, 248, 8 

258 SYMBOL 188, 8, 8, 63, 22, 22, 3 

8, 127, 65 

268 SYMBOL 113, 48, 8, 68, 182, 126 
‚96, 68, ® 

278 SYMBOL 118, ®, ®, 153, 219, 126 


‚ 219, 153, 8 

288 SYMBOL 122, ®, 64, 124, 182, 12 
‚ 1082, 68, 0 

298 SYMBOL 185, ®, 8, 182, 182, 118 
‚ 118, ı92, 8 

38@ SYMBOL 1986, 68, ®, 182, 192, 11 
a, 118, 102, 8 

318 SYMBOL 187, ®, 8, 188, 188, 1208 
‚ 188, ı80, 8 

328 SYMBOL 188, ®, ®, 126, 44, AA, 
a4, 76, 8 

33@ SYMBOL 189, ®, ®, 198, 238, 254 
‚ 214, 198, 8 

348 SYMBOL 184, ®, ®, 1982, 1902, 126 
‚ 182, ıe2, 8 

358 SYMBOL 114, ®, ®, 126, 182, 182 
‚ 182, ı02, 8 

368 SYMBOL 116, ®, ®, 126, 24, 24, 
24, 24, 8 

378 SYMBOL 182, ®, 24, 24, 126, 219 
‚ 219, 126, 24 

388 SYMBOL 115, ®, ®, 192, 1902, 182 
‚ 182, 126, 2 

398 SYMBOL 117, 8, 8, 182, 182, 110 
‚54,6, 8 

488 SYMBOL 91, 8, ®, 219, 219, 219, 
219, 255, 8 

aıB SYMBOL 93, ®, ®, 219, 219, 219, 
219, 255, 1 

428 SYMBOL 94, ®, ®, 99, 99, 123, 1 
07, 123, 8 

438 SYMBOL 92, 8, ®, 68, 192, 14, 1 
02, 68, ® 

448 SYMBOL 64, B, ®, 286, 219, 251, 
219, 206, ® 

A458 SYMBOL 118, &, ®, 62, 102, 126, 
54, 102, 8 

A6M CıS 

478 PRINT:PRINT:PAINT:PRAINT" 


Alfabit” 
488 PRINT: PRINT: PAINT :PRINT:PRINT"”A 
a Ww Bb Gg Dd E e 
qq" 
498 PRINT:PRINT"”V v 2 z Ili J 
3 Kk L 1 M m" 
588 PRINT:PRINT"H h 0 o Ar pP 
p Cc Tt Yy" 
518 PRINT:PRINT"F f xx 5 s U 
u {I +] Br" 
528 PRINT:PRINT"”®‘ \ ı e@ N n” 
538 PRINT: PRINT :PRINT :PRAINT 
RUSSISCH 
Wer also russische Schriftzeichen auf den CPC brin- 
gen will, der sollte es abtippen und dann laufen las- 
sen. Aber wundern Sie sich nicht, wenn die Ready- 
Meldung dann plötzlich auf russisch kommt. 
(JE) 
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TRIMM DICH FIT — 
MIT DEM CPC 


Eine Kalorientabelle hatten wir schon in Schneider 
aktiv. Aber weil es ganz ohne körperliche Bewegung 
nicht geht, fehlte noch ein Programm zur Ausarbei- 
tung des Gymnastikplanes. Für die Sportfreunde un- 
ter den Schneider aktiv-Lesern, aber nicht nur für die- 
se, sondern auch für diejenigen, die zuwenig Bewe- 
gung haben, hat unser Autor Matthias Dühn ein Pro- 
gramm geschrieben, mit dem Sie sich Ihre tägliche 
Gymnastikstunde abwechslungsreich und komforta- 
bel erarbeiten lassen können. 

Das Programm berücksichtigt sowohl das Lebensalter 
als auch die jeweilige Tagesform einer Person. Daraus 
ergibt sich nämlich, wie oft man jede Übung wieder- 
holen muß. ’ 

Die Anzahl der Übungen kann man sich auswählen. 
Ebenso auswählen kann man sich die prozentuale 
Verteilung auf folgende Sparten: Auflockerung, 
Kondition, Kraft und Dehnung. 


BEWEGEN MÜSSEN SIE SICH SELBST 


Nach den Eingaben erfolgt die Ausgabe der Übungs- 
vorschläge, wahlweise auf dem Bildschirm oder auf 
dem Drucker. 
Also, denken Sie daran: Bewegung tut gut, beson- 
ders, wenn Sie recht lange vor dem Computer geses- 
sen haben. 
Dieses Programm läuft auf allen drei CPC-Typen. Die 
Druckausgabe lief beim Test einwandfrei. Wenn dies 
bei Ihnen eventuell nicht der Fall sein sollte, passen 
Sie die Routine an Ihren Drucker an und schon steht 
einer Gymnastikstunde nichts mehr im Weg. 

(JE) 


KALENDER 


INTERESSANTE RECHENROUTINE 


Natürlich kann man einen Kalender auch kaufen. In- 
teressanter ist es jedoch, wenn man die zur Berech- 
nung notwendigen Routinen einmal selbst program- 
miert. Unser Autor Thomas Gehrman hat sich ein- 
mal an die Sache herangewagt und liefert ein kurzes 
Listing ab, mit dem man sich beschäftigen sollte. 

Da die Berechnung nur bis zum Jahre 2099 gilt, 
versprechen wir jetzt schon, im Jahre 2098 ein 
Update herauszubringen. 


ACHTUNG: DRUCKER MUSS ON LINE SEIN 


Mit diesem Programm läßt sich für die Jahre 1901 bis 
2099 ein Jahreskalender auf dem Drucker ausgeben. 
Er berücksichtigt ebenfalls die beweglichen Feiertage 
(Ostern, etc.). Zum Benutzen des Programmes muß 
der Drucker angeschlossen und auf Bereitschaft ge- 
schaltet sein. 

Der gesamte Jahreskalender benötigt einen DIN A4- 
Bogen. Zur Berechnung der beweglichen Feiertage 
hat unser Autor eine Formel des Mathematikers 

Carl Friedrich Gauß (1777-1855) benutzt. 


1 


100 er 
110 ’* GYMNASTIKPLAN * 
120 ’* VON # 
130 ’* MATTHIAS DUEHN #* 
140 °# FUER * 
150 ’* SCHNEIDER AKTIV #* 
160 ’* CPC 464/664/6128 je* 
170. ee RHEIN 
180 

190 MODE 1:INK 0,0:INK 1,26:INK 2,2 


4:INK 3,2 
194 DIM x( 30) ‚alock$( 15) ‚,‚kon$( 15) ,k 
raft$( 20) ,dehn$( 15) ,a( 100) 
195 BORDER 1 

196 GOSUB 10000 
197 e$=CHRA$( 24) 
200 WINDOW#1,1,40,1,3:PAPER#1,3:PEN 
#1,2:CLS#1:PAINT#1:PRINT#1," Gymna 
stic-Maker (c) 1987 M.Duehn" 
210 WINDOW 1,40,4,22:CL8 
220 WINDOW#2,1,40,23,25:PAPER#2,2:P 
EN#2,3:C1L5#2 
230 PRINT#2:PRINTf#2,” 
n Sie Ihren Namen ein" 
240 LOCATE 12, 12:INPUT"”>",name$ 
250 CLS#2 
260 PRINT#2:PRINT#2,"” 
n Sie Ihr Alter ein 
270 LOCATE 12,12:PRINT" 

":LOCATE 12, 12:INPUT">",alter:I 

F alter>99 OR alter<1iI THEN 270 
275 CLS 
280 LOCATE 2,5:PRINT"Ihre Verfassun 
g ist heute" 
290 LOCATE 12,8:PRINT"A ";e$;"” BAER 
IG super ";e$ 
300 1L.OCATE 12,10:PRINT"B ";e$;" Gan 
z gut drauf ";e$:LOCATE 12, 12:PRINT 
"C ";e$;" durchschnittlich ";e$:LOC 
ATE 12,14:PRINT"D ";e$;” We 
niger gut ";e$:LOCATE 12,16:PRINT"E 

";e$;" Total miserabel ";e$ 
310 CLS#2:PRINT#2:PRINTA2,” 
n Sie ihren Buchstaben ein" 
320 LOCATE 2,19:INPUT"> "”,Vv$ 
330 v$=UPPER$( v$) 
340 IF v$="A" THEN 
350 v$="B" THEN 
360 v$="C" THEN 
370 v$="D"” THEN form=2 
380 v$="E” THEN form=4 
400 alter<20 THEN alt=-3:G0T0 45 


Bitte . gebe 


Bitte gebe 


Gebe 


form=--?7? 
form>-4 
form=-O 


410 
0 
420 


alter<30 THEN alt=--1:G0T0 45 
alter<40 
430 alter<S0O 
440 alter<60 
ELSE alt=4 


450 wiederholung=( 10-form) -alt 
33 


THEN 
THEN 
THEN 


alt=2:6G0T0 450 
alt=3:G6G0T0O 450 
alt=4:G0T0 450 


| LISTING 


460 CLS:CL5#2 

470 PRINT#2:PRINT#2,"Ihr Wiederholu 
nesfaktor ist ";wiederholung 

450 FOR aaa=1 TO 1500:NEXT aaa 

490 CLS#2:PARINT#2:PRINT#2," Wievie 
le Uebungen wuenschen Sie 7” 


500 LOCATE 12, 12:INPUT"”>",anzahl 
510 CLS:CLS#2 
520 PAINT#2:PRINT#2 ,‚"” 


n sie in Prozent an" 


Bitte gebe 


530 LOCATE 2, 12:PRINT"Auflockerungs 
uebungen a 

540 LOCATE 2, 14:PRINT"”Dehnungsuebun 
gen a; 

550 LOCATE 2,16:PAINT”Kraftuebungen 
560 LOCATE 2,18:PRINT"Konditionsueb 
ungen er 

570 LOCATE 34, 12:INPUT”%” ,auflock 
580 LOCATE 34, 14:INPUT”%”, dehnung 
590 LOCATE 34,16: INPUT"%",kraft 

600 LOCATE 34, 18:INPUT"%",kondition 
610 IF auflock+dehnung+kraft+kondit 


ion<>100 THEN CLS#2:PRINT#2:PRINT#2 
ki Summe nicht 100 !!!!! 
alock=INT((anzahl*auflock) /100) 
dehn=INT( (anzahl*#dehnung) / 100) 
kraft=INT( (anzahl*kraft) /100) 
kon=INT((kondition*anzahl) /100) 
660 CLS:CLS#F2 

670 LDCATE 2,10:PRINT"Es sind";aloc 
k;"Auflockerungsuebungen" 

680 LOCATE 2,12:PRINT"Es sind"”;dehn 
; "Dehnungsuebungen” 

690 LOCATE 2,14:PRINT"Es sind";kraf 
t;"Kraftuebungen"” 

700 LOCATE 2,16:PRINT"Es sind"”;kon; 
"Konditionsuebungen” 

710 PRINT: PRINT#2:PRINT#2,"” 
Tastendruck” :CALL &BBO6 

720 CLS:CLS#2:PRINT#2:PRINT#2,"” 

[ B Jildschirm oder [ D ]rucker ?"” 
730 LOCATE 12,12:INPUT”>",druck$ 
740 druck$=UPPER$( druck$) :IF druck$ 
="B" THEN a=0 ELSE IF druck$="D" TH 
EN a=8 ELSE GOTO 720 

750 CLS#2:CL5:PRINT#2:PRINTA2,” 

Der Plan wird nun ausgedruckt” 

760 CLS:BORDER 0:MODE 2:PRINTAa 

770 PRINT#a,"Gymnastikplan fuer ";n 
ame$ 

780 PRINT#a, STRING$( 80, 154) 

790 PRINT#a,TAB(20);"Auf lock 
erungsuebvunge n :":PRIN 
T#a,STRING$( 79, "=") :PRINT#a 

B00 FOR s=1 TO alock 

810 als) =INT(ERND*#11) +1 

811 PRINT#a,USING"##";s;:PRINT#a,"”) 
"‚.”" "-wiederholung; "#*";alock$( als) 


) 


> 

620 
630 
640 
650 


830 NEXT 
840 IF a=0 THEN LOCATE 1,25:PRINT” 
>>> TAS 
TE < < <":CALL &BB06:CL5 


850 PRINT#a:PRINT#a,TAB(20);"D e h 
nung s ueb ung e n":PRINT#Äa, 
STRING$( 79,"=") :PRINTAa 
860 FOR s=1 TO dehn 
870 al s) =INT([ AND*13) +1 
880 PRINT#a,USING"”##” ;s; :PRINT#a,”) 
";wiederholung; "*";dehn$(als)) 
890 NEXT 
895 IF a=D THEN LOCATE 1,25:PRINT” 
>>> TAS 
TE < < <":CALL &BB06:CL5S 
900 PRINT#fa:PRINT#a,TAB(20);"K ra 
ftueb ung e n":PRINT#a,5TRING 
$(79,”"=") :PRINT#Aa 
910 FOR s=1 TO kraft 
920 a{(s) =-INT( RND*#14) +1 
930 PRINT#fa,USING”##"”;s; :PRINT#a,"”) 
":wiederholung; "*";kraft$(afls)) 
940 NEXT 
945 IF a-0 THEN LOCGATE 1,25:PRAINT"” 
>>> TAS 
TE < < <":CALL &BBO6:CLS 
950 PRINT#a:PRINT#fa,TAB(20);"K on 
ditionswueb ung e n":PRIN 
T#a,5TRING$( 79,”=") :PRINT#a 
960 FOR s=1 TO kon 
970 a{ s) =INT( AND*11) +1 
980 PRINT#a,USING”#4#";s;:PRINT#a,"”) 
";wiederholung; "*";kon$(als)) 
990 NEXT 
1000 PRINT#a:PRINT#a,STRING$( 79, "=" 
):PRINT#a,"That’s it,Bye !!!” 
1010 CALL &BBO6 
1020 MODE 1:LOCATE 2, 12:INPUT”"Nochm 
al Drucken (j/n) ";aa$ 
1030 aa$=UPPER$( aa$) :IF aa$="J" THE 
N RUN ELSE CLS:END 
9000 
9010 
9020 
9030 
9040 
10000 alock$( 1)="Armkreisen vorwaer 
ts,rueckwaerts” 
10010 alock$( 2) ="Hueftkreisen links 
und rechts” 
10020 alock$( 3)="Beine ausschuettel 
n” 
10030 alock$(4)="Mit den Armen an d 
ie Beinseiten fassen" 
10040 alock${(5)="Arme kreisen" 
10050 alock$(6)="locker joggen!” 
10060 alock$( 7) ="Oberkoerper kreise 
n" 


UEBUNGEN 


R} = L} . 0} 
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10070 alock$(B) -"Kopfkreisen"” 

10080 alock$(9)="Im Stehen mit Bein 
en Achten zeichnen" 

10090 alock$( 10)="In die Luft (nach 
5-Markstuecken) greifen" 

10100 alock$( 11) -"Holzhacken" 

10110 Dehn$( 1)="Mit den Haenden an 
die Ferse fassen" 

10120 dehn$( 2)="Mit den Haenden zu 
Fusspitze"” 

10130 dehn$( 3)="In den Schneidersit 
z und Beine dehnen" 

10140 dehn$(4)="Auf Auecken legen,B 
eine an Brust ziehen" 

10150 dehn$(5)="Auf Ruecken legen,m 
it dem Bein gegen die Haende drueck 

en" 

10160 dehn$( 6) ="Huerdensitz"” 

10170 dehn$( 7)="In den Ausfallschri 

tt und Ferse dehnen, alle Muskeln a 

nspannen” 

10180 dehn${( 8)="Beine ueber Kreuz s 
tellen und mit den Armen zu den Fue 
ssen gehen” 

10190 dehn$(9)="Rueckenlage : Schul 
tern auf Boden und Po hochstrecken” 
10200 dehn$( 10) ="Seitlage : Den obe 

nliegenden Schenkel anheben" 

10210 dehn$( 11)="In die Kerze und B 

eine dehnen" 

10220 dehn$( 12)="In die Kerze und F 
uesse kreisen und klappen" 

10230 dehn$( 13) ="Im Stand auf die Z 

ehenspitzen stellen und das Becken 

rausstrecken"” 


10240 kraft$( 1)="kleine Klappmesser 
10250 kraft$(2)="grosse Klappmesser 


10260 kraft$(3)="Rueckenlage,Kopf a 
nheben"” 

10270 kraft$(4)="Rueckenlage, Beine 
anheben" 

10280 kraft$(5)="Bauchlage,Kopf anh 
eben" 

19290 kraft$(6)="Bauchlage,Beine an 
heben!” 

10300 kraft$(7)="Liegestuetz"” 

10310 kraft$(7)="Liegestuetz,Hock-S 
trecksprung” 

10320 kraft$( 8) ="Bruecke" 

10330 kraft$( 9)="Bauchlage, linkes B 
ein,rechter Arm abwechselnd anheben 


10340 kraft$( 10)="Im Sitzen den Kop 

f aufs Knie und dann hinlegen links 
und rechts" 

10350 kraft$( 11)="In die Bauchlage, 
mit den Haenden die Fuesse fassen 


10360 kraft$( 12)="Kniebeugen"” 

10370 kraft$( 13) ="Hinsetzen und Bei 

ne anziehen-strecken,ohne Boden zu 

beruehren” 

10380 kraft$( 14)="Hinsetzen und Bei 

ne drehen,ohne den Boden zu beruehr 

en" 

10390 kon$( 1) ="Hampelmaenner” 

10400 kon$( 2) ="Einbeinspruenge"” 
10410 kon$( 3)="In den Ausfallschrit 

t springen” 

10420 kon$(4)="In die Hocke und spr 
ingen” 

10430 kon$( 5) ="Startsprungwechselhu 

epfen” 

10440 kon$(6)="In Startposition,nac 

h links und rechts und oben und u 

nten springen” 

10450 kon$( 7)="Skifahreruebung: nac 

h links und rechts und vorne und h 
inten huepfen” 

10460 kon$( 8)="Im Stand abwechselnd 
anfersen und knieheben ” 

10470 kon$( 9) ="Bauchlage : mit Bein 
en und Armen den Boden schlagen" 
10480 kon$( 10) ="Radfahren” 

10490 kon$( 11) ="Springen und Beine 
zur Brust ziehen" 

10500 RETURN 


10 met HIER 


20 ’* KALENDER # 
30 '* VON * 
40 '* THOMAS GEHRMANN # 
a5 ’* " _ FUER * 
50 ’* SCHNEIDER AKTIV # 
55 '# CPC464/664/6128 je* 


60 Rare ISESHESESSESESE SEEN HN 

80 GOSUB 900:REM *%*# INIT #*# 

90 

100 ” ### Jahreseingebe und Bestimm 

ung des 1.Januar ### 

110 

120 MODE 1 

130 INPUT "Bitte das gewuenschte Ja 

hr eingeben "; jahr 

140 IF jahr<1901 OR jahr>2099 THEN 

PRINT"Fehler !":GOTO 130 

150 janf=( jahr-1900+INT( ( jahr-1901) 
/a)) MOD 7 

160 IF jahr MOD A=0 THEN mlen(2)=29 
ELSE mlen( 2) =28 

170 manf( 1)=janf 

180 FOR f=2 TO 12 


190 manf( f) =(manf( f-1) +mlen( f-1))MO 3» 
D7? 
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und dann wippen" 


LISTING 


200 NEXT f 
210 


’### Druck der Jahreszahl ##*+ 
230 


PRINT "Drucker ON-LINE schalten 


n( 0) =INT( jahr/ 1000) 


260 n( 1) =INT( Jjahr/ 100) -n( 0) #10 

n n( 2) =INT( Jahr/ 10) -n( 0) #100-n( 1) 
10 

280 n(3)=jahr MOD 10 


FOR zz=0 TO 7 

FOR p=0 TO 3 

PRINT#8, TAB( p*20+2); 
g=-PEEK( h+n( p) *8+zz) 
FOR 11=7 TO 0 STEP -1 
ep=2*11 


350 IF ep<=g THEN g=g- ep:PRINT#B,"# 
#”; ELSE PRINT#8,” -. 

360 NEXT 11 

370 NEXT p 

380 PRINT#8 

390 NEXT zz 

400 PRINT#8:PRINTA#8 

410 ° 

420 ’#*## Druck des Kalenders *#** 
430 

440 FOR ze=1 TO 10 STEP 3 


FOR sp=0 TO 2 

460 PRINT #8, TAB( 16+sp*23) ;SPACE$( I 

ae LEN( m$( ze+sp))) /2)): ;m$( ze+sp 
’ 

NEXT sp 

PRINT#8:PRINT#8 

FOR wt=0 TO 6 

PRINT#B,w$(wt); 

FOR r=-0 TO 2 

n=ze+tr 

PRINT#8,TAB( 16+r*23) ; 

FOR x=0 TO 5 

t=x#7+1-manf( n) +wt 

IF t<1 OR t>mlen({n) THEN PRINT#f 

8,” "; ELSE PRINT#B,USING"##H#";t; 

NEXT x 

NEXT r 

PRINT#8 

NEXT wt 

PRINT#8 

NEXT ze 

PRINT#8:PRINT#8 


"##% Bewegliche Feiertage *#* 
660 

zi=( 19*( jahr MOD 19)+24) MOD 30 
680 os=22+z1+(2*( jahr MOD 4) +4*( jah 
r MOD 7)+6%*z1+5) MOD 7 

690 IF os=57 THEN os=50 


700 IF os=56 AND zi=28 AND ( jahr MO 
D 19)>10 THEN os-49 


710 PRINT#8,"Bewegliche Feiertage : 
":PRINT#8 


220 PRINT#B,"Karfreitag : 
:t=0os-2:G05SUB 830:PRINT#8 
730 PRINT#8, "Ostern : 


;:t=0s:G0OSUB 830:PRINT#8," / ";:t= 
os+1:G05UB 830:PRINT#B 
740 PRINT#8,"Christi Himmelfahrt : 
"-:t=0s+39:G05UB B30:PRINT#8 
750 PRINT#8, "Pfingsten r 

:t=0s+49:605UB 830:PRINT#B," / ”; 

:t=0s+50:G05UB 830:PRINT#B 
760 PRINT#8,"Fronleichnam 
"-:t=0s+60:G05UB 830:PRINT#F8 
770 PRINT "Weiteren Kalender drucke 
n 2?” 
780 a$-LOWER$( INKEY$) :IF 3$="j" THE 
N GOTO 120 ELSE IF a$="n" THEN END 
790 GOTO 7BO 
800 ” 
810 ’### Drucke Datum *#*# 
820 
830 m=3 
840 IF t>mlen{m) THEN t=t-mlenf{m) :m 
=m+1:GOTO 840 


850 FPRINT#8B,USING"##4.6";t;m$(m); 
860 RETURN 

870 

880 ’*** Initialisierung *#** 
890 

900 DEFINT a-g,i-z:DEFREAL h 


910 DIM w$(6) ‚m$( 12) ‚mlen( 12) ‚manf( 
12) 

920 FOR wt=D TO 6:READ w$( wt) :NEXT 

wt 

930 FOR m=-1 TO 12:READ m${m) ‚mlen{m 
) :NEXT m 

940 SYMBOL AFTER 48 

950 h=HIMEM+1 


960 RETURN 
970 DATA Montag ,Dienstag,Mittwoch,D 


onnerstag,Freitag, Samstag, Sonntag 
980 DATA Januar,31,Februar, ‚M{rz,31 
‚April,30,Mai,31,Juni,30,Juli,31,Au 
gust,31,5eptember,30,0ktober,31,Nov 
emnber,30,Dezember, 31 


SUPER 
LISTINGS 
FÜR 


SUPER 
CPC-USER 
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TEST 


Bealdes 


En 21 


SPORTSPIELE FÜR os. _ 
SPORTSFREUNDE 


In dieser Ausgabe von Schneider aktiv Special haben wir uns in punkto 
Spiele etwas ganz Besonderes für Sie ausgedacht. Wir haben uns bemüht, 
sämtliche Sportspiele, die wir noch auftreiben konnten, im Spieleteil von 

Schneider aktiv Special vorzustellen. Einige Programme konnten wir 
leider nicht mehr bekommen, aber dennoch wird der Leser in den nun 


folgenden Kurztests einen Großteil der auf dem Markt befindlichen Sport- 


spiele kennenlernen. Viel Spaß beim Lesen. 


1. PING PONG 


Zwei Spieler können bei dem 1985 


von Imagine erschienenen Tischten- 
nisspaß Ping Pong ihre Reaktion 
und ihre Geschicklichkeit testen. 

Ist ein Gegner aus Fleisch und Blut 
nicht vorhanden, simuliert der Com- 
puter einen sehr spielstarken Geg- 
ner. Nachdem man zu Beginn des 
Spiels eines von 4 Levels ausge- 
wählt hat, kann das Match auch 
schon beginnen. Die Tischtennis- 
platte ragt in einer guten 3D-Dar- 
stellung in den Bildschirm, zwei 
Hände, die einen Tischtennisschlä- 
ger in der Hand halten, stehen sich 
gegenüber. Daß man nur die beiden 
Hände und nicht den ganzen Kör- 
per der Spieler sieht, liegt nicht dar- 


an, daß die Programmierer kannibali- 


sche Züge besitzen, sondern durch 
die Hände kann man alle ausgeführ- 
ten Schläge nachvollziehen. Vor- 
hand, Rückhand, Schmetterschlag, 
Treibschlag (Drive) und Dreh- 


Ping Pong 
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25% 
Von Imagine bei Waldeck 


schlag (Cut) sind die Schlagvarian- 
ten, die der Computer beherrscht. 
Versuchen Sie, ihn zu schlagen. Es 
wird Ihnen Spaß machen. 


2. HYPER SPORTS 


Mit Hyper Sports kann man olympi- 


sche Luft schnuppern. In sechs Dis- 
ziplinen müssen die Spieler Qualifi- 
kationspunkte sammeln und letzt- 
endlich am Ende des Kampfes mehr 
Punkte aufweisen als der Gegner. 
Zu Beginn des Spiels gibt man mit 


Tu 


dem Joystick seinen Namen ein, 
und der Spaß kann beginnen: 
Schwimmen ist angesagt. Vier Ath- 
leten stehen auf den Startblöcken 
und warten auf den Startschuß. 
Peng, mit einem Druck auf den 
Feuerknopf springt der Schwimmer 
ins kühle Naß. Nun heißt es, den 
Joystick hin- und herrütteln, damit 
man an Geschwindigkeit gewinnt. 
Hat man genug Qualifikationspunk- 
te gesammelt, geht es weiter mit 
der nächsten Disziplin: dem Ton- 
taubenschießen. Hat man auch hier 
genügend Qualifikationspunkte ge- 


Hyper Sports 
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sammelt, legt der Spieler ein Tram- 
polinintermezzo ein. Überlebt er 
diese sehr schwierige Disziplin, darf 
. sich im Bogenschießen, im Drei- 

sprung und last but not least im 

ewichtheben versuchen. Die Gra- 
fik ist gut gelungen (herrliche Ani- 
mation), der Sound ist ebenso tadel- 
los, aber leider nur sehr rar vorhan- 
den. Die Motivation ist besonders 
beim Spiel mit 2 Spielern sehr 
hoch. 


World Series Baseball wurde, als es 
1985 erschien, zum Leidwesen des 
Herstellers Imagine in Europa kein 
Erfolg. Das lag nicht daran, daß das 
Spiel schlecht umgesetzt worden war, 
sondern schlicht und ergreifend ist 
Baseball hierzulande kein populärer 
Sport. Grafik und Sound sind in 
Ordnung. Hat die eine Mannschaft 
einen Ball geschlagen, wird die Situa- 
tion auf einer großen Leinwand ge- 
zeigt, die sich über den Köpfen der 
Spieler i im Baseballstadion befindet. 
Der Spieler blickt in einer sehr ge- 
schickt gewählten Perspektive auf 
den Baseballplatz und kann mit dem 
Joystick seine Mannen zum Sieg ver- 
helfen. Home Runs, Bases, Runners, 
Fielders und Batter fehlen genauso 
wenig wie eine Gruppe von Girls, 
die in den Pausen das Tanzbein 


World Series Baseball 
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schwingen. World Series Baseball ist 
eine gelungene Umsetzung des ame- 
rikanischen Sports. Wer diesen dra- 

matischen Sport einmal kennenler- 

nen möchte, ist mit dieser Baseball- 
simulation gut beraten. 


4. WINTERGAMES 


Das erfolgreichste Sportspiel für den 
CPC ist zweifelsohne Wintergames. 
Genau wie bei den Vorgängerpro- 
grammen, Summergames I und 
Summergames II, müssen bis zu 
acht Spieler eine Olympiade mit 
allen Details bestehen: Eröffnungs- 
zeremonie, Schlußzeremonie, Me- 
daillenverleihung und eine High- 
scoretabelle runden das Spielge- 
schehen ab. Die Winterspiele beste- 
hen aus sechs verschiedenen Diszi- 
plinen. Bobfahren, Skispringen, 


| Minterume 2 | 
am TTTTF2 

EIIETTTTA 
m CT 
Aorta TTTTTA 


25% 
Von Epyx bei Waldeck 


| 137 


Schneider EEE 
aktiv) 


Eislaufen, Eistanz, Trickski und 
Biathlon. Alle Disziplinen sind gra- 
fisch hervorragend umgesetzt. Der 
Sound ist ebenso erstklassig, leider 
sind aber alle Tunes nur sehr kurz. 
Mit etwas Übung beherrscht man die 
zu Beginn noch recht komplizierte 
Steuerung der Athleten. Winter- 
games ist ein wahrer Klassiker unter 
den Sportolympiaden, wenn auch 
die Cassettenversion sehr umständ- 
lich ausfällt. 


5. WORLDGAMES 


Epyx macht es möglich. Die Medail- 
lenjagd braucht immer noch kein 
Ende zu haben. Worldgames, der 
neueste Titel aus Epyx’s Games 
Serie, in der auch Wintergames er- 
schienen ist, wurde um einen wei- 
teren hervorragenden Titel erwei- 
tert. Wieder kann der Spieler sich an 
Eröffnungs-, Schlußzeremonie, Me- 
daillenverleihung und Highscoreta- 
belle erfreuen. Diesmal hat Epyx 8 
neue Disziplinen ausgewählt, die an- 
geblich urtypisch für einige Länder 
dieser Welt sein sollen. So findet Ge- 
wichtheben in Rußland statt, Klip- 
penspringen in Acapulco, Abfahrts- 
lauf in Frankreich, Baumstamm- 
kampf in Kanada, Rodeo in Ameri- 
ka, Baumstammwerfen in Schott- 


Worldgames 
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land, Ringkampf in Japan und Fäs- 
serspringen in Deutschland. Die 
Grafik ist noch besser gelungen als 
bei Wintergames. Die originellen 
Disziplinen bereiten dem Spieler 
eine Menge Spießspaß. Bis zu acht 
Spieler können an der lustigen 
Olympiade teilnehmen. 


6. INDOOR SPORTS 


Eine weitere Olympiade mit vier 
Sportarten bietet uns die amerikani- 
sche Firma Designstar Consultants 
mit Indoor Sports, ihrem neuesten 
Spiel für den CPC. Vier Sportarten 
fließen in die Wettkampfbewertung 
mit ein: Tischhockey, Bowling, 
Darts und Ping Pong. Die Grafiken 
sind bei allen vier „Disziplinen“ 
hervorragend. Vor jedem Wettkampf 
erscheint ein Parametermenü, bei 
dem man die Anzahl der Spieler, 
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Spielzeit, Spielstärke des Compu- 
ters etc... einstellen kann. 

Bei allen Sektionen im Spiel 
merkt man die Liebe zum Detail. 
Indoor Sports ist eigentlich gar 
kein Olympiadenspiel, sondern ein 
Spielesampler mit 4 hervorragen- 
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den Sportspielen, die durch ein ge- 
meinsames Punktesystem mitein- 
ander harmonieren. Man könnte 
jede der 4 Disziplinen sicherlich 
auch mit Erfolg einzeln verkaufen. 


7. SUPER CYCLE 


Wow! Bei Super Cycle können Sie 
endlich mal Ihren Geschwindigkeits- 
rausch auskosten. Mit dem Joystick 
steuern Sie ein Motorrad über ver- 
schiedene Rennstrecken, bei denen 
es vor Hindernissen nur so wimmelt. 
Öllachen, Kakteen und eine Viel- 
zahl anderer Motorradfahrer wol- 
len Ihnen den Sieg nicht gönnen. 
Für jede Strecke wird Ihnen eine 
Zeit vorgegeben. Innerhalb dieser 
Zeit müssen Sie am Ziel angekom- 
CONTESTANT JOJO ATTEMPT 2 men sein. Die Stoppuhr läuft erbar- 
mungslos am Bildschirmrand, Ihre 
Kontrahenten versuchen, Sie’'von 
der Piste abzudrängen. 
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Schnell bewegte Grafiken und eine 
Menge Schikanen und Hindernissen 
werden Ihnen eine Menge Spielspaß 
bereiten. 


8. 500 CC GRAND PRIX 


WOHER: SUR RE 500 CC Grand Prix ist leider nicht 
besonders gut gelungen. Der Screen 
ist gesplittet, zwei Spieler können 
simultan gegeneinander antreten. 
Das Motorradrennen kann mit Joy- 
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stick oder Keyboard bestritten wer- 
den. Damit beide Spieler mit dem 
Joystick spielen können, müssen Sie 
sich (vorausgesetzt Sie kaufen das 
Spiel — Ich hoffe Sie tun es nicht) 
zu dem ohnehin viel zu teuren Pro- 
gramm (39,95 Cassette/59,95 Dis- 
kette) noch einen Amsoft JV1 zu- 


500cc Grand Prix 


25% 50% 
Von Loricels bei Waldeck 


legen. Jeder Spieler hat seinen eige- 
nen kleinen Bildschirm, in dem er 


Io 
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seine Rennmaschine sehen kann. 
Die brummenden Töne, die aus 
dem Lautsprecher des CPC kom- 
men, sollten wohl Motorengeräu- 
sche darstellen. Für mich gab es 
nach einem Fünfminutenspiel nur 
eins: Abschalten! 

Wenn Sie ein gutes Motorradren- 
nen suchen, nehmen Sie Super 
Cycle. 


9. PAR FIVE GOLF 


Par Five Golf ist ein Programmpaket, 
bestehend aus dem eigentlichen Golf- 
spiel Par Five Golf und einem kom- 
fortablen Golfkurseditor. 

Nachdem man Namen und die An- 
zahl der Spieler (bis zu 7) eingege- 
ben hat, kann das Turnier begin- 
nen. Zwei verschiedene Golfkurse 
stehen zur Auswahl. Wem das nicht 


reichen sollte, der hat mit dem Edi- 
tor unbegrenzte Möglichkeiten. 
Beim Golfspiel spielen alle Faktoren 
eine Rolle, die auch den Golfprofis 
in der Realität Kopfschmerzen berei- 
ten. Verschiedene Bodenarten, 
Wasserlöcher, Bäume, Seen, Wind 
und eine große Anzahl von verschie- 
denen Schlägern (Sie müssen den 
richtigen aussuchen, um optimale 
Ergebnisse erzielen zu können.). 

Im Editor können Sie völlig neue 
Golfplätze editieren. Jeder Baum 


kann einzeln editiert werden. Die 
Grafik liegt über dem Durchschnitt, 
Sound ist kaum vorhanden, Par 
Five Golf bereitet trotzdem eine 
Menge Spaß. 


10. LEADERBOARD GOLF 


Leaderboard Golf von Acess Soft- 


ware war auf dem Commodore 64 
ein riesiger Erfolg. Die Schneider- 
freaks freuten sich, als das hervor- 
ragende Golfspiel auch für den 
CPC umgesetzt wurde. Als Fan 

der C64-Version setzte ich mich an 
den Joystick, um der CPC-Fassung 
auf den Zahn zu fühlen. Aber was 
war das? Wo war der schnelle Gra- 
fikaufbau? Wo die hervorragende 
Animation des Golfers? Auf dem 
CPC scheint der Golfer wohl Rheu- 
maprobleme zu haben. 


Die Animation ist sehr mißlungen. 
Die Features, wie Wind und unter- 


Leaderboard Golf 
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schiedliche Schläge, sind glücklicher- 
weise genauso wie bei der Commo- 
dore-64-Fassung. Jedes einzelne 

Bild wird wieder grafisch neu aufge- 
baut. Leider dauert dieser Aufbau 
bei der CPC-Fassung eine Ewigkeit, 
so daß der Spießspaß sehr darun- 

ter zu leiden hat. 
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11. CHAMPIONSHIP BASKETBALL: 
TWO ON TWO 


Nach One on One von Electronic 
Arts, dem legendären Sportspieloldie, 
war es klar, daß irgendwann ein Fort- 
setzungstitel erscheinen mußte. 

Two on Two: Zwei gegen Zwei, 
heißt dieses Basketballspiel, bei dem 
jede Mannschaft aus zwei Spielern 
besteht. (Der Nachfolgetitel von 

Two on Two könnte Three on Three 
heißen, irgendwann haben wir dann 
mal zwei Basketballmannschaften 
komplett.) Die Basketballregeln 

sind originalgetreu übernommen 
worden, aber leider geht durch die 
schlichte Grafik und dem nerven- 
den Sound jede Art von Spießspaß 
dahin. Ebenfalls als sehr störend zu 
bezeichnen ist die Tatsache, daß 

der Computer das Spiel für kurze 
Zeit unterbricht, wenn der Angriff 
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einer Mannschaft mißlungen ist. Die 
angreifende Mannschaft zieht sich 


Championship Basketball 


Von Gamestar bei Waldeck 


in ihre Hälfte zurück und das vertei- 
digende Team greift an. Für kurze 
Zeit kann der Spieler nicht mit dem 
Joystick in das Spiel eingreifen. 
Schade, von Two on Two hatte ich 
mir wesentlich mehr versprochen. 


12. MATCH POINT 


In der Zeit von Boris Becker wollen 
wir Ihnen natürlich ein gutes Tennis- 
spiel nicht vorenthalten. Match 

oint von PSION läßt die Herzen 
aller Tennisfans höher schlagen. 
Zu Beginn des Spiels möchte der 
Computer wissen, ob Sie alleine oder 
zu zweit spielen wollen. Dann fragt 
erin Volkszählungsmanier, wie Sie 
heißen und ob Sie Anfänger, Ama- 
teur oder Profi sind. Hat man die 
Wißbegier des Computers befriedigt, 
bekommt man auch schon den Ten- 
niscourt zu sehen. Zuschauertribü- 
nen, ein Schiedsrichter, Balljungen 
und ein Scoreboard sorgen für die 
richtige Stimmung. Aufschlag Schnei- 
der activ. Na, ich will dem Verlag 
ja keine Schande machen, aber der 
Computergegner auf der anderen 
Seite des Netzes knallt mir die Bälle 
nur so um die Ohren. Schmetter- 
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bälle, Vorhand und Rückhand wer- 
den genauso beherrscht wie Slice 
und Lop. Match Point gibt es ein- 
zeln von PSION oder auf dem Spie- 
lesampler „They sold a million II“ 
von Ocean mit noch 3 anderen Spie- 
len. Sehr empfehlenswert. 


13. MATCH DAY 


Bei Match Day handelt es sich um 
ein gut gemachtes Fußballspiel. 

Die Programmierer haben viele Fea- 
tures, die ein Fußballspiel so dra- 
matisch machen, mit in ihr Programm 
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eingebaut. Dribblings, Doppelpässe, 
Eckbälle, Einwürfe und Anstoß 
sind die Schußvarianten, die Sie 
beim Spiel gegen den Computer be- 
herrschen müssen. Sie können auch 
die vorgegebenen Teamnamen än- 
dern und neue einsetzen. Die Gra- 
fik weiß auf den ersten Blick zu 
überzeugen, aber wenn man sich das 
sehr ruckelige Scrolling ansieht, 
wird man merken, daß Match Day 
schon einige Tage älter ist. Der 
Sound ist für CPC-Verhältnisse 
nicht schlecht. Er ist zu hören, 
wenn die Spieler sich vor dem Spiel 
in Reihe und Glied aufstellen. 
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Trotz gewisser Minuspunkte bei der 
Grafik macht Match Day wahnsin- 
nig viel Spaß. 


14. SAILING 


Sailing ist eigentlich gar kein wasch- 
echtes Sportspiel, sondern eher ei- 
ne strategische Sportsimulation. 

Wir fanden, daß das Spiel trotzdem 
in diesen Rahmen paßt. Sie sollen in 
einer Regatta mitsegeln und mög- 
lichst auch noch gewinnen. Zu An- 
fang des Spiels wählen Sie den 
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Schwierigkeitsgrad und ob Sie mit 
Soundeffekten oder lieber ohne spie- 
len möchten. Ich empfehle Ihnen: 
Spielen Sie ohne. Was aus dem Laut- 
sprecher des CPCs dröhnt, lohnt 
nicht, angehört zu werden. Nach 
Drücken des Feuerknopfs kommen 
Sie.in ein Menü, in dem Sie Ihre 
Jacht ausrüsten können und sogar, 
man höre und staune: Es ist sogar 
möglich, die Jacht umzubauen. 
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Wenn Sie der Ansicht sind, die Jacht 
perfekt ausgerüstet zu haben, be- 
steht die Möglichkeit, das Spiel zu 
starten. Die Grafiken, die nun fol- 
gen (Meer und Schiffe), sind lei- 

der recht schlecht gelungen. Hart- 
gesottene Segelfreunde werden aber 
sicherlich trotzdem noch Gefallen 
an Sailing finden. 


15. AMERICA’S CUP CHALLENGE 


e BR OR 5 LITE NIC FR : 
Seglern wird er ein Begriff sein, der 
America’s Cup. Der am höchsten 
dotierte Segelwettbewerb der Welt, 
welcher die Segelchampions aus 
aller Welt an den Start lockt. U.S 
Gold brachte vor einiger Zeit anläß- 
lich des America’s Cup das offiziel- 
le Computerspiel heraus. Ähnlich 
wie bei Sailing sind Action- und 
Strategieelemente miteinander ver- 
mischt. Glücklicherweise sind Gra- 


fik und Sound nicht gar so kläglich 
wie bei Sailing geraten. Die Anlei- 
tung ist sehr klar und ausführlich. 


Americans Cup Challenge 
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Das Spiel und einige Seglergrundbe- 
griffe werden in Englisch erklärt. 
Die Segel, die Crew, der Wind und 
das Wetter sind Faktoren, die Sie 
bei dem Kampf um den Cup be- 
rücksichtigen müssen. Eine schöne 
Herausforderung. 


16. TRANS ATLATNIC BALLOON 


CHALLENGE 


Sie haben die Chance, mit dabei zu 
sein. Wobei? Natürlich am aufre- 
gendsten Rekordversuch des Jahres 
1987 — eine Atlantiküberquerung 
mit dem Heißluftballon. Als Spieler 
schlüpfen Sie in die Rolle eines 
Adlers, der den Ballonfahrern hel- 
fen oder Ihnen auch schaden kann. 
Der Adler versucht, die Höhe bzw. 
den Kurs des gegnerischen Ballons 
zu beeinflussen und die Hindernis- 
se für die beiden Ballonfahrer aus 
dem Weg zu räumen. Leider hat 
der gegnerische Rekordsportler 


Trans Atlantic Balloon Challenge 
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auch einen Adler, dem Sie in stän- 

diger Feindschaft begegnen. Grafik 
und Sound sind gut gelungen, und 

Spaß macht das Ganze auch noch. 

Was will man mehr? 
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Ihr Fachhändler 


Marianne Tröndle 
Lindenstr. 3, 7700 Singen 


(Hohentwiel), Tel. 077 31/644 33 


Ihr kompetenter, autorisierter 
©s SCHNEIDER-Fachhändler 


Srhellkammer 


Hard- u. Software, Peripherie, 
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Fachkundige Beratung - kompletter 
Service 
7700 Singen, Freibühlstr. 21-25 
Tel. 07731/82020 
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Computer Grahle 
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Schneider PC 1512 
Schneider Zubehör 
Staubschutzhauben 
Anrufbeantworter 
Funktelefone 
Designtelefone 
Gesamtkatalog 3,— DM 


B. V. Steponaitis, 
Obere Straße 30, 8720 Schweinfurt 


VERDIENEN SIE GELD 


MIT IHREM COMPUTER! 
wır ZAHLEN BIS ZU 1000DM! 


Haben Sie einen CPC 464 oder 664 ? Einen 6128 
Können Sie programmieren? In Basic oder 
Maschinensprache? Dann bietet SCHNEIDER AKTIV 
Ihnen die Möglichkeit, mit diesem Hobby Geld zu verdie- 
nen! 


Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusammen 
mit einer Kurzbeschreibung, aus der auch die verwende- 
te Hardware — eventuelle Erweiterungen — benutzte Pe- 
ripherie — hervorgehen muß, ein. 


Benötigt werden: eine Datenkassette oder Diskette! 
Wenn die Redaktion sich überzeugt hat, daß dieses Pro- 
gramm läuft und sich zum Abdruck eignet, zahlen wir 
Ihnen pro Programm je nach Umfang bis zu DM 300,—! 


Name des Einsenders: __ 
Straße /Hausnr. /Tel.: 


PLZ/Ort: 


Für das ‚Listing des Monats‘‘ sogar DM 1.000, '—. 
Sie erhalten Ihre Kassette /Diskette selbstverständlich 

zurück, wenn Sie einen ausreichend frankierten 

Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift ga- 
rantieren, daß Sie der alleine Inhaber der Urheber-Rechte 
sind! Benutzen Sie bitte anhängendes Formular! (Wir 
weisen darauf hin, daß auch die Reaktion englische 
Fachzeitschriften liest und ‚‚umgestaltete‘‘ Programme 
ziemlich schnell erkennt). 


Um Ihnen die Arbeit zu erleichtern, finden Sie hier ein 
Formular. Sie können es ausschneiden oder fotokopie- 
ren. 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


[) Kassette [_] Diskette 


Beigefügt [_) Listings 


Ich versichere, der alleinige Urheber des Programms zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es in 
den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung. Das Copyright 


geht an den Verlag über. 


Rechtsverbindliche Unterschrift 


SCHNEIDER AKTIV 
PROGRAMM-REDAKTION 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


